function CovFileDate(Fd :_FileTime): TDateTime;{转换文件的时间格式}var  Tct:_SystemTime;  Temp:_FileTime;begin  FileTimeToLocalFileTime(Fd, Temp);  FileTimeToSystemTime(Temp, Tct);  CovFileDate := SystemTimeToDateTime(Tct);end;procedure GetFileTime(const Tf:string);{ 获取文件时间，Tf表示目标文件路径和名称 }const  Model='yyyy/mm/dd,hh:mm:ss'; { 设定时间格式 }var  Tp: TSearchRec; { 申明Tp为一个查找记录 }  T1, T2, T3: string;begin  FindFirst(Tf,faAnyFile,Tp); { 查找目标文件 }  T1 := FormatDateTime(Model, CovFileDate(Tp.FindData.ftCreationTime));  { 返回文件的创建时间 }  T2 := FormatDateTime(Model, CovFileDate(Tp.FindData.ftLastWriteTime));  { 返回文件的修改时间 }  T3 := FormatDateTime(Model, Now);  { 返回文件的当前访问时间 }  FindClose(Tp);end;procedure SetFileDateTime(const FilePathName:string; aDate: TDateTime);{ 设置文件时间，Tf表示目标文件路径和名称 }var   Dt1, Dt2: Integer;  Fs: TFileStream;  Fct, Flt: TFileTime;begin  Dt1 := DateTimeToFileDate(aDate);  Dt2 := DateTimeToFileDate(aDate);  { 转换用户输入在DataTimePicker中的信息 }  try    FS := TFileStream.Create(FilePathName, fmOpenReadWrite);    try      if DosDateTimeToFileTime(LongRec(DT1).Hi, LongRec(DT1).Lo, Fct) and          LocalFileTimeToFileTime(Fct, Fct) and          DosDateTimeToFileTime(LongRec(DT2).Hi, LongRec(DT2).Lo, Flt) and          LocalFileTimeToFileTime(Flt, Flt)      then        SetFileTime(FS.Handle, @Fct, @Flt, @Flt); { 设置文件时间属性 }    finally      FS.Free;    end;  except    MessageDlg('日期修改操作失败！', mtError, [mbOk], 0);    { 因为目标文件正在被使用等原因而导致失败 }  end;end;