delphi怎么获取文件修改时间

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