Ich hab es durchaus mit deiner Abfrage mit waModified probiert aber hat bei Änderungen nicht reagiert bzw. soll sich ja explizit auf die vorher erstellte datei beziehen. Daher bin ich dafür wieder auf die Timerlösung umgestiegen. Wobei ich dort aktuell das Problem habe, das ich mit der Zeitausgabe nicht hinkomme (falsche Zeit, ich denke immer die aktuelle Systemzeit). Die Funktion habe ich allerdings nur kopiert und mich irritiert das Systemtime bei Encodedate.
Code:
function TTools.GetCreationTimeOfFile(const AFileName: String): TDateTime;
var
SR: TSearchRec;
SystemTime: TSystemTime;
NewWriteTime: TFileTime;
begin
Result:=0;
if FindFirst(AFileName, faAnyFile, SR)=0 then
try
IF (FileTimeToLocalFiletime(SR.FindData.ftLastWriteTime, NewWriteTime) and
FileTimeToSystemTime(NewWriteTime, SystemTime)) Then
Result := Encodedate(SystemTime.wYear,
SystemTime.wMonth,
SystemTime.wDay) +
Encodetime(SystemTime.wHour,
SystemTime.wMinute,
SystemTime.wSecond,
SystemTime.wMilliseconds);
finally
FindClose(SR)
end;
end;