Hallo,
deine Funktion GetFileDate() funktioniert bei mir, wenn ich den Fehler mit dem falsch platzierten FindClose() korrigiere - das muss in den Block rein, sonst gibt es Probleme im Fehlerfall.
Hier noch eine leicht abweichende
Implementierung:
Delphi-Quellcode:
function FileModified(const fn: TFileName): TDateTime;
var
sr: TSearchRec;
tzi: TTimeZoneInformation;
lt, st: TSystemTime;
begin
if FindFirst(fn, faAnyFile, sr) = 0 then
begin
GetTimeZoneInformation(tzi);
FileTimeToSystemTime(sr.FindData.ftLastWriteTime, st);
SystemTimeToTzSpecificLocalTime(@tzi, st, lt);
Result := SystemTimeToDateTime(lt);
FindClose(sr);
end else Result := 0;
end;
Lektüre zu FileAge() findest du hier:
Alternative zu FileAge
Grüße vom marabu