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;