Erstellungsdatum einer Datei ermitteln?

[FBrust]

Hallo,

Windows zeigt im Eigenschaftendialog einer Datei drei Datumswerte an:

- erstellt
- geändert am
- letzter Zugriff

Ich möchte nun das Erstellungsdatum ermitteln, damit beim Kopieren der Datei die Kopie das gleiche Erstellungsdatum erhält wie das Original.

Mit FileDateToDateTime(FileAge(strFileName)); erhalte ich aber nur das "geändert am"-Datum.

Wie komme ich denn an das Erstellungsdatum?


Gruß

Frank

[St.Pauli]

Delphi-Quellcode:

function GetCreationTimeOfFile(const AFileName: String;): TDateTime;
var
  SR: TSearchRec;
  SystemTime: TSystemTime;
  NewCreationTime: TFileTime;
begin
  Result:=0;
  if FindFirst(AFileName, faAnyFile, SR)=0 then
  try
   IF (Windows.FileTimeToLocalFiletime(SR.FindData.ftCreationTime, NewCreationTime) and
           Windows.FileTimeToSystemTime(NewCreationTime, SystemTime)) Then
    Result:=Encodedate(SystemTime.wYear,
                       SystemTime.wMonth,
                        SystemTime.wDay) +
            Encodetime(SystemTime.wHour,
                       SystemTime.wMinute,
                       SystemTime.wSecond,
                       SystemTime.wMilliseconds);
  finally
   SysUtils.FindClose(SR)
  end;
end;

[FBrust]

Hallo St. Pauli,

danke für die schnelle Antwort, funktioniert super.


Gruß

Frank