?
Danke für die Tipps. Habe den vorgeschlagenen Code leicht angepasst. Funktioniert gut.
Ich hatte nur Bedenken bezüglich der Verarbeitungszeit durch FindFirst
TSearchRec sr;
int iAttributes = faAnyFile;
SYSTEMTIME sysTime;
FILETIME filetime;
TDateTime dtFileCreated; // enthält Erstellungsdatum
//TDateTime dtFileLastModified; // enthält Datum der letzten Änderung
if (FindFirst(OrdnerPfad, iAttributes, sr) == 0)
{
FileTimeToLocalFileTime(&(sr.FindData.ftCreationTime), &filetime);
FileTimeToSystemTime(&filetime, &sysTime);
SystemTimeToDateTime(sysTime);
dtFileCreated = TDateTime(sysTime.wHour, sysTime.wMinute, sysTime.wSecond, sysTime.wMilliseconds)
+ TDateTime(sysTime.wYear, sysTime.wMonth, sysTime.wDay);
//FileTimeToSystemTime(&(sr.FindData.ftLastWriteTime), &sysTime);
//dtFileLastModified = TDateTime(sysTime.wHour, sysTime.wMinute, sysTime.wSecond, sysTime.wMilliseconds)
//+ TDateTime(sysTime.wYear, sysTime.wMonth, sysTime.wDay);
}
FindClose(sr);
OrdnerZeit = dtFileCreated;
==>Eisbeer<==