设置文件的时间要复杂一些，这里介绍利用Delphi中的DataTimePicker组件来辅助完成这一复杂的操作。下面的例子利用了四个DataTimePicker组件来完成文件创建时间和修改时间的设置。注意：文件的访问时间用修改时间来代替。使用下面的例子时，请在您的Form上添加四个DataTimePicker组件。其中第一和第三个DataTimePicker组件中的Kind设置为dtkDate，第二个和第四个DataTimePicker组件中的Kind设置为dtkTime.
　　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;
　　以上简单介绍了文件时间属性的修改方法，请注意：修改文件时间的范围是从公元1792年9月19日开始的，上限可以达到公元2999年或更高。另外，请不要将此技术用于破坏他人文件等非正当途径。

上一页12下一页