请问如何将TDateTime类型转换成PFileTime类型？

Question

请问如何将TDateTime类型转换成PFileTime类型？

Answer 1

其中DateTimeToFileTime是将Pascal格式的时间转换为文件时间的函数：
function DateTimeToFileTime(DateTime:TDateTime):TFileTime;
var
  SystemTime:TSystemTime;
begin
  with SystemTime do
  begin
    DecodeDate(DateTime, wYear, wMonth, wDay);
    DecodeTime(DateTime, wHour, wMinute, wSecond, wMilliSeconds);
  end;
  SystemTimeToFileTime(SystemTime,Result);
end;

Answer 2

DateTimeToFileDate(DateTime: TDateTime): Integer;

Answer 3

不行啊我要用SetFileTime函数设置文件的日期
这个函数要求日期必须是PFileTime类型的
而我要转换的日期类型是TDateTime类型的

Answer 4

帮你找的资料
http://www.jsj92.com/cxg/delphi/system/sys30.html