delphi 操作文件时间的函数

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;