获取、设置文件的时间

标签：

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 Tf:string);
　　{ 设置文件时间，Tf表示目标文件路径和名称 }
var
　　Dt1,Dt2:Integer;
　　Fs:TFileStream;
　　Fct,Flt:TFileTime;
begin
　　Dt1:=DateTimeToFileDate(
　　Trunc(Form1.DateTimePicker1.Date) + Frac(Form1.DateTimePicker2.Time));
　　Dt2:=DateTimeToFileDate(
　　Trunc(Form1.DateTimePicker3.Date) + Frac(Form1.DateTimePicker4.Time));
　　{ 转换用户输入在DataTimePicker中的信息 }
　　try
　　    FS := TFileStream.Create(Tf, 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;

获取、设置文件的时间

标签：

原文地址：http://my.oschina.net/u/582827/blog/378707