获取文件创建、修改时间

const
  Model = 'yyyy-mm-dd hh:mm:ss'; { 设定时间格式 }
var
  Tp: TSearchRec; { 申明Tp为一个查找记录 }
  T1, T2, T3: string;
begin
  FindFirst('D:\Founder\HS\HS_Base\bin\server\update\hsencrypt.dll', faAnyFile,
    Tp); { 查找目标文件 }
  T1 := FormatDateTime(Model, CovFileDate(Tp.FindData.ftCreationTime));
  { 返回文件的创建时间 }
  T2 := FormatDateTime(Model, CovFileDate(Tp.FindData.ftLastWriteTime));
  { 返回文件的修改时间 }
  T3 := FormatDateTime(Model, Now);

  ShowMessage(T1);
  ShowMessage(T2);
  ShowMessage(T3);
  { 返回文件的当前访问时间 }
  FindClose(Tp);
end;

function CovFileDate(Fd: _FileTime): TDateTime;
{ 转换文件的时间格式 }
var
  Tct: _SystemTime;
  Temp: _FileTime;
begin
  FileTimeToLocalFileTime(Fd, Temp);
  FileTimeToSystemTime(Temp, Tct);
  CovFileDate := SystemTimeToDateTime(Tct);
end;