DataTime时间转换成FileTime时间

在系统中如果要对文件的时间进行操作,但是这时不能用DataTime的时间类型进行,而需要进行DataTime到FileTime的转换,但DataTime与FileTime中间是没有直接转换的,需要先将DataTime类型转换为SystmeTime类型,然后从SystemTime类型转换到FileTime.

具体操作代码如下:

var
  SystemTime: TSystemTime;
  LocalTime: TFileTime;
begin
  DateTimeToSystemTime(Now, SystemTime);
  SystemTimeToFileTime(SystemTime, LocalTime);
  SetFileDate('FileName', LocalTime, LocalTime, LocalTime);
end;