delphi怎么获取文件修改时间-开发者知识库平台

delphi怎么获取文件修改时间

delphi

1464

2024/5/5 16:47:12

栏目: 编程语言

在Delphi中，可以使用以下代码来获取文件的修改时间：

uses
  SysUtils, Windows;

function GetFileModifyTime(const AFileName: string): TDateTime;
var
  FindData: TWin32FindData;
  FileTime: TFileTime;
  LocalTime: TSystemTime;
begin
  if FileExists(AFileName) then
  begin
    ZeroMemory(@FindData, SizeOf(TWin32FindData));
    if FindFirstFile(PChar(AFileName), FindData) <> INVALID_HANDLE_VALUE then
    begin
      FileTime := FindData.ftLastWriteTime;
      FileTimeToLocalFileTime(FileTime, FileTime);
      FileTimeToSystemTime(FileTime, LocalTime);
      Result := SystemTimeToDateTime(LocalTime);
      FindClose;
    end
    else
    begin
      Result := 0;
    end;
  end
  else
  begin
    raise Exception.Create('File not found');
  end;
end;

使用上述函数可以获取指定文件的修改时间，例如：

var
  ModifyTime: TDateTime;
begin
  ModifyTime := GetFileModifyTime('C:\example.txt');
  ShowMessage('File modify time: ' + DateTimeToStr(ModifyTime));
end;

辰迅云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>

delphi怎么获取文件修改时间

最新知识库

相关标签