在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.

相关文章


2011年计算机二级公共基础知识辅导笔记(14)
计算机二级DELPHI辅导:在delphi中设置工作目录
delphi的Desktop主窗体介绍
用Delphi实现整个网站图片的极速下载
在Delphi中获取和修改文件的时间
DELPHI8操作符重载的例子
Delphi实现对注册表的监视和扫描
使用Delphi创建IIS虚拟目录
计算机二级辅导:增强MIDAS的安全性
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛