如何获得一个文件的修改日期？

Question

？

Answer 1

function GetFileModifyDate(FileName: String): TDateTime;
//获取文件最后修改日期
var FileHandle : THandle;
    LocalFileTime : TFileTime;
    DosFileTime : DWORD;
    LastModifyTime : TDateTime;
    FindData : TWin32FindData;
begin
   FileHandle := FindFirstFile(PChar(FileName), FindData);
   if FileHandle <> INVALID_HANDLE_VALUE then
      begin
         Windows.FindClose(FileHandle);
         if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
            begin
               FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
               FileTimeToDosDateTime(LocalFileTime,
               LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo);
               LastModifyTime := FileDateToDateTime(DosFileTime);
               Result:=LastModifyTime;
            end;
      end;
end;