Da du die Sourcen hast, kannst du sie auch reparieren.
Delphi-Quellcode:
{$IFDEF WINDOWS}
Result := -1;
LHandle := FindFirstFile(PChar(AFileName), LRec);
if LHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(LHandle);
if (LRec.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToDosDateTime(LRec.ftLastWriteTime, LongRec(LTime).Hi, LongRec(LTime).Lo);
Result := FileDateToDateTime(LTime);
end;
end;
{$ENDIF}
Das ist naemlich wirklich ein Fehler in der Funktion.
Die Linux und die .net Version liefern beide -1 wenn es kein File ist.