Ich habs nun so gelöst:
Delphi-Quellcode:
function LeseZeiten(Datei : string): TTs;
var
FileT1 : TFileTime; // Erstellt
FileT2 : TFileTime; // bearbeitet
FileT3 : TFileTime; // letzter zugriff
aHandle : THandle;
begin
aHandle := CreateFile(PChar(Datei), GENERIC_WRITE, 0,
nil, OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, 0);
GetFileTime(aHandle, @FileT1, @FileT2, @FileT3);
FileTimeToSystemTime(FileT1, result.erstellt);
FileTimeToSystemTime(FileT3, result.geaendert);
FileTimeToSystemTime(FileT2, result.letzterzugriff);
CloseHandle(aHandle);
end;
Jetzt habe ich allerdings das Problem, dass die angezeigte Zeit
eine Stunde früher ist, als die die Windows anzeigt.
Hat das mit meiner Zeitzone zu tun ?
gruss