Delphi专题 ·

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

功能

用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;

参与评论