TWin32FindData.TFileTime nach TDateTime?

[Sharky]

Hai ihr alle,

wie kann ich denn TFileTime von TWin32FindData in ein TDateTime wandeln?

Ich möchte mir für alle Dateien auf der HD die drei relevaten Datumswerte anzeigen lassen.

Gruss


Edit durch mich selber


Jetzt habe ich die deklaration im PSDK gefunden.

So geht es dann:

Code:

function FileTimeToDateTime  (filetime : TFileTime): TDateTime;
var
 systime : TSystemTime;
 datetime : TDateTime;
begin
 FileTimeToSystemTime (filetime,systime);
 datetime := EncodeDate (systime.wYear,systime.wMonth,systime.wDay);
 datetime := datetime + EncodeTime (systime.wHour,systime.wMinute,systime.wSecond,systime.wMilliseconds);
 result := datetime;
end;

P.S.: Wie kann ich denn jetzt eigentlich den Code Formatiert im Forum darstellen?