Delphi获取文件创建时间、文件最后修改时间


本文整理自网络,侵删。

 
procedure TForm1.Button1Click(Sender: TObject);//获取文件创建时间
var
  FileName: string;
  ti: Integer;
  dt: TDateTime;
begin
  FileName := 'D:\test\Test.txt';
  ti := FileAge(FileName);
  ShowMessage(IntToStr(ti));  //返回: 1030115371, 需要转换
  dt := FileDateToDateTime(ti);  //转换
  ShowMessage(DateTimeToStr(dt));  //2010-11-6 10:01:22
end;

procedure TForm1.Button2Click(Sender: TObject);//获取文件最后修改时间
  procedure DirectoryDateTimeInfo(const path : string) ;
  var
    sr : TSearchRec;
    modifiedTime : TDateTime; // 修改时间
  begin
    if sysUtils.FindFirst(path, faDirectory, sr) = 0 then
      modifiedTime := FileDateToDateTime(sr.Time) ; // 修改时间
    ShowMessage(Format('Last Modified Time: "%s"', [DateTimeToStr(modifiedTime)])) ;
    FindClose(sr) ;
   end;
begin
  DirectoryDateTimeInfo('D:\test\Test.txt');
end;

相关阅读 >>

Delphi网络英汉字典代码

Delphi检查是否在64位windows环境中运行?

Delphi 列出dbgrideh被选中的值

Delphi利用系统时间产生随机数的函数

tstringlist 常用操作

Delphi使用zlib压缩和解压文件

Delphi实现电脑桌面壁纸更换

unigui js操作Delphi控件赋值

Delphi 取时间戳

Delphi基于高斯-拉普拉斯算子的图像边缘检测

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...