Hallo,
über findfirst und findnext kann in von einem Objekt TSearchRec neben z.B. Dateiname, Größe, Attribute
und DOS-Zeit auch die Erstellungszeit, Zeit der letzten Änderung und des letzten Zugriffs abgefragt werden.
Diese befinden sich jeweils in 2 Record-Feldern vom Typ Cardinal.

Feldabfrage z.B.:
a:=search.FindData.ftCreationTime.dwLowDateTime;
b:=search.FindData.ftCreationTime.dwHighDateTime;

Jetzt die Frage:
Wie kann ich diese Zahlen in einen Datums-Zeit-Wert umwandeln?
Nach bisherigen Versuchen passen die für die DOS-Zeit möglichen Funktionen nicht.

Gruß macdede

zusammenfalten · markieren

Delphi-Quellcode:

function ConvertFileTime(ft:TFileTime):TDateTime;
var
   st : TSystemTime;
begin
   if Windows.FileTimeToSystemTime(ft, st) then
      Result := SysUtils.SystemTimeToDateTime(st)
   else
      Result := 0.0;
end;

var
   erzeugt : TDatetime;
begin
   erzeugt := ConvertFileTime(search.FindData.ftCreationTime);

Danke shmia,
hat gut funktioniert.