delphi 获取文件最后修改时间

function GetFileLastAccessTime(FileName: string; AFlag: Integer): TDateTime;

var

  WFD: TWin32FindData;

  FileTime: TFileTime;

  hFile: THandle;

  DFT: DWORD;

begin

  hFile := FindFirstFile(Pchar(FileName), WFD);

  if hFile <> INVALID_HANDLE_VALUE then

  begin

    // FindClose(hFile);

    case AFlag of

      1:

        FileTimeToLocalFileTime(WFD.ftCreationTime, FileTime);

      2:

        FileTimeToLocalFileTime(WFD.ftLastAccessTime, FileTime);

      3:

        FileTimeToLocalFileTime(WFD.ftLastWriteTime, FileTime);

    end;

    FileTimeToDosDateTime(FileTime, LongRec(DFT).HI, LongRec(DFT).LO);

    Result := FileDateToDateTime(DFT);

  end;

end;