Wie man Erstellungs-/Letzte-Änderungsdaten einer Datei in Delphi erhält?

Question

Ich möchte die Attribute dieser Datei als Ganzzahlenwerte erhalten.

Answer 1

Versuchen Sie

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

Aus SysUtils.

Answer 2

Delphianer neigen dazu, den FindFirst-Ansatz zu mögen (die SearchRec-Struktur hat einige davon), aber ich würde die Win32-API-Funktion GetFileAttributesEx vorschlagen.

Answer 3

Von der DSiWin32 Freeware-Bibliothek:

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

Funktion GetFileModDate(Dateiname: string): TDateTime;
var
   F: TSearchRec;
begin
   FindFirst(Dateiname, faAnyFile, F);
   Result := F.TimeStamp;
   // wenn Sie wirklich eine ganze Zahl wollten, ändern Sie den Rückgabetyp und verwenden Sie diese Zeile:
   //Result := F.Zeit;
   FindClose(F);
end;

F.Time wurde inzwischen verworfen, die Hilfedatei sagt, verwenden Sie F.TimeStamp.
Nur zur Aktualisierung aufgrund späterer Versionen von Delphi

Answer 5

System.IOUtils haben tatsächlich einen TFile-Datensatz mit mehreren Funktionen zum Abrufen des Dateialters, z.B. GetCreationTime, GetLastAccessTime, GetLastWriteTime