function FileTimeToDateTime( FileTime : TFileTime ) : TDateTime;
var
ModifiedTime : TFileTime;
SystemTime : TSystemTime;
begin
try
FileTimeToLocalFileTime( FileTime, ModifiedTime );
FileTimeToSystemTime( ModifiedTime, SystemTime );
Result := SystemTimeToDateTime( SystemTime );
except
Result := Now; // 에러가 난걸까 ??
end;
end;
|