如何将 TFileTime类型数据转化为 TDateTime 类型数据(50分)

如何将 TFileTime类型数据转化为 TDateTime 类型数据

FileTime --> LocalFileTime --> SystemTime --> TDateTime

var
FileTime, LocalFileTime: TFileTime;
SystemTime: TSystemTime;
DateTime: TDateTime;
begin
FileTimeToLocalFileTime(FileTime, LocalFileTime);
if FileTimeToSystemTime(LocalFileTime, SystemTime) then
DateTime := SystemTimeToDateTime(SystemTime);
...
end;

接受答案了.