delphi 获取文件修改时间

本文整理自网络，侵删。

 function filectime(filename:string):tdatetime;
 var
      vSearchRec:   TSearchRec;   
      LocalFileTime:   TFileTime;   
      I:   Integer;   
  begin   
      if   FindFirst(filename,   faAnyFile,   vSearchRec)   =   0   then

      FileTimeToLocalFileTime(vSearchRec.FindData.ftLastWriteTime,   LocalFileTime);   
      FileTimeToDosDateTime(LocalFileTime,   LongRec(I).Hi,   LongRec(I).Lo);
   //   Memo1.Lines.Values['修改时间']   :=   DateTimeToStr(FileDateToDateTime(I));
      FindClose(vSearchRec);
   result:=FileDateToDateTime(I);
end; 

相关阅读 >>

Delphi 判断端口是否被使用

Delphi编写系统服务

Delphi 导出excel报错：ole error 800a03ec

Delphi 倒计时源码

Delphi fmx 获取系统版本 android ios通用

Delphi 判断当前活动窗口

Delphi firedac 下的 sqlite 创建数据库

Delphi 简化版的inputquery 中文版输入对话框

Delphi 利用tidhttp实现文件下载的分块断点续传

Delphi中combobox的datavalue值

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

转载请注明出处：木庄网络博客 » delphi 获取文件修改时间