在Delphi中获取和修改文件的时间

文章作者 100test 发表时间 2011:03:22 18:44:41
来源 100Test.Com百考试题网

　　在Delphi中获取和修改文件的时间
　　本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。
　　熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息。在属性菜单中会列出该文件的创建时间、修改时间和访问时间。这些信息常常是很有用的，它们的设置一般都是由操作系统（也就是由Dos/Windows等等）自动完成的，不会让用户轻易修改。
　　这里，我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中提供了很完备的Windows API函数的调用接口，可以方便的进行高级Windows编程。利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的FindData域中就记载了详细的文件时间信息。然而遗憾的是，FindData中的时间信息是不能直接得到的。因此，有人（编者按：很遗憾不知此人姓名）编写了一个转换函数来完成文件时间格式的转换。下面给出了具体的实现方法，仅供参考：
　　function CovFileDate(Fd:_FileTime):TDateTime.
　　{ 转换文件的时间格式 }
　　var
　　Tct:_SystemTime.
　　Temp:_FileTime.
　　begin
　　FileTimeToLocalFileTime(Fd,Temp).
　　FileTimeToSystemTime(Temp,Tct).
　　CovFileDate:=SystemTimeToDateTime(Tct).
　　end.
　　有了上面的函数支持，我们就可以获取一个文件的时间信息了。以下是一个简单的例子：
　　procdeure 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.