1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function TFuP_S._Erstelldatum(Dateipfad: String) : TDateTime;
var
  SR: TSearchRec;
  SystemTime: TSystemTime;
  NewCreationTime: TFileTime;
begin
  // Variable initialisieren
  Result:= 0;
  // Erstelldatum ermitteln
  if FindFirst(Dateipfad, faAnyFile, SR) = 0 then
  begin
    if (Windows.FileTimeToLocalFiletime(SR.FindData.ftCreationTime, NewCreationTime) and Windows.FileTimeToSystemTime(NewCreationTime, SystemTime)) then
    begin
      Result:= Encodedate(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay) + Encodetime(SystemTime.wHour, SystemTime.wMinute,SystemTime.wSecond, SystemTime.wMilliseconds);
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

uses DateUtils;

function GetFileCreationDateTime(const Filename: string): TDateTime;
var
  f: TSearchRec;
  t: _FILETIME;
  s, lt: _SYSTEMTIME;
  i: _TIME_ZONE_INFORMATION;
begin
  Result := 0;
  try
    if FindFirst(Filename, faAnyFile, f) = 0 then
    begin
      t := f.FindData.ftCreationTime;
      if FileTimeToSystemTime(t, s) then
        if GetTimeZoneInformation(i) <> TIME_ZONE_ID_INVALID then
        begin
          SystemTimeToTzSpecificLocalTime(@i, s, lt);
          Result := EncodeDateTime(lt.wYear, lt.wMonth, lt.wDay, lt.wHour, lt.wMinute, lt.wSecond, lt.wMilliseconds);
        end;
    end;
  finally
    FindClose(f)
  end
end;