"Geändert am" ermitteln?

[s-off]

Hallo,

zum Beispiel so:

Delphi-Quellcode:

Function TForm1.GetDate(_sValue: String): TDateTime;
Var
   SR: TSearchRec;
Begin
   If FindFirst(_sValue, faAnyFile, SR) = 0 Then Begin
      Result := FileDateToDateTime(SR.Time);
      FindClose(SR);
   End;
End;

Funktioniert auch mit Verzeichnisnamen.

Edit: Na da sind wir uns ja einig