Herausfinden wann ein Ordner erstellt wurde

[Dani]

Zitat von DeddyH:

Z.B. so

Vorsicht, der Code beachtet nicht Sommer/Winterzeit. Sogar der Explorer liefert die falsche Zeit, wenn man einen Ordner in der Sommerzeit erstellt und dann in der Winterzeit die Eigenschaftsseite anschaut. Dieser Beispielcode beachtet die Zeitzone und Sommer/Winterzeit:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  AppDir: String;
  FileInfo: TWin32FileAttributeData;
  CreationDate: TDateTime;
  LocalTime, SystemTime: TSystemTime;
begin
  AppDir := ExcludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
  if GetFileAttributesEx(PChar(AppDir), GetFileExInfoStandard, @FileInfo) and
     FileTimeToSystemTime(FileInfo.ftCreationTime, SystemTime) and
     SystemTimeToTzSpecificLocalTime(nil, SystemTime, LocalTime)
  then begin
    CreationDate := SystemTimeToDateTime(LocalTime);
    ShowMessage(DateTimeToStr(CreationDate));
  end else begin
    ShowMessage(SysErrorMessage(GetLastError));
  end;
end;

[/klugscheiss]