Delphi中系统时间与文件时间互相转换

最新推荐文章于 2024-10-05 10:41:51 发布

原创最新推荐文章于 2024-10-05 10:41:51 发布 · 465 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi

收录于

delphi常用函数专栏收录该内容

38 篇文章

订阅专栏

该文章介绍两个函数，用于在TDateTime和TFileTime之间进行转换，涉及WindowsAPI的DateTimeToSystemTime、SystemTimeToFileTime、FileTimeToSystemTime和SystemTimeToDateTime。这些函数在需要修改或查询文件创建时间的场景中十分有用。

应用场景

有时候需要修改文件的时间，或者提取文件创建时间等等会使用到。

函数代码

function DateTimeToWinFileTime(DT: TDateTime): TFileTime;
var
  ST: TSystemTime;
begin
  DateTimeToSystemTime(DT, ST);
  Win32Check(SystemTimeToFileTime(ST, Result));
end;

function WinFileTimeToDateTime(FT: Windows.TFileTime): TDateTime;
var
  SysTime: Windows.TSystemTime;
begin
  Win32Check(Windows.FileTimeToSystemTime(FT, SysTime));
  Result := SystemTimeToDateTime(SysTime);
end;