windows - Delphiでファイルの作成日/最終更新日を取得するには?

Question

これらの属性を整数値としてファイルに取得したいと考えています。

Answer 1

試す

function FileAge(const FileName: string; out FileDateTime: TDateTime): Boolean;

SysUtils から。

Answer 2

FindFirstデルフィアンはこのアプローチを好む傾向があります(SearchRec構造にはそれらのいくつかがあります) が、私は Win32 API 関数 をお勧めしますGetFileAttributesEx。

Answer 3

DSiWin32フリーウェア ライブラリから:

function DSiFileTimeToDateTime(fileTime: TFileTime; var dateTime: TDateTime): boolean;
var
  sysTime: TSystemTime;
begin
  Result := FileTimeToSystemTime(fileTime, sysTime);
  if Result then
    dateTime := SystemTimeToDateTime(sysTime);
end; { DSiFileTimeToDateTime }

function  DSiGetFileTimes(const fileName: string; var creationTime, lastAccessTime,
  lastModificationTime: TDateTime): boolean; 
var
  fileHandle            : cardinal;
  fsCreationTime        : TFileTime;
  fsLastAccessTime      : TFileTime;
  fsLastModificationTime: TFileTime;
begin
  Result := false;
  fileHandle := CreateFile(PChar(fileName), GENERIC_READ, FILE_SHARE_READ, nil,
    OPEN_EXISTING, 0, 0);
  if fileHandle <> INVALID_HANDLE_VALUE then try
    Result :=
      GetFileTime(fileHandle, @fsCreationTime, @fsLastAccessTime,
         @fsLastModificationTime) and
      DSiFileTimeToDateTime(fsCreationTime, creationTime) and
      DSiFileTimeToDateTime(fsLastAccessTime, lastAccessTime) and
      DSiFileTimeToDateTime(fsLastModificationTime, lastModificationTime);
  finally
    CloseHandle(fileHandle);
  end;
end; { DSiGetFileTimes }

Answer 4

これは動作するはずで、ネイティブの Delphi コードです。

function GetFileModDate(filename : string) : integer;
var
  F : TSearchRec;
begin
  FindFirst(filename,faAnyFile,F);
  Result := F.Time;
  //if you wanted a TDateTime, change the return type and use this line:
  //Result := FileDateToDatetime(F.Time);
  FindClose(F);
end;

Answer 5

System.IOUtils には、GetCreationTime、GetLastAccessTime、GetLastWriteTime など、ファイルの経過時間を取得するためのいくつかの関数を含む TFile レコードがあります。

Answer 6

GetFileInformationByHandle winapi関数を呼び出すことができます。どうやらJCLにはGetFileLastWrite関数もあり、使用することもできます