Rückgabewert könnte undefiniert sein!

[Robert Marquardt]

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.