FindFirst TSearchRec setzen

[DelTurbo]

Hi,
also bei Dateien kann ich diese 3 Zeiten einfach wie folgt lesen und setzen.

Delphi-Quellcode:

var
  CreationTime,LastAccessTime,LastWriteTime :TFileTime;

procedure ReadTime;
var
  fh:Integer;
begin
  fh:=FileOpen('C:\datei.ext',fmOpenWrite or fmShareDenyNone);
  GetFileTime(fh,@CreationTime,@LastAccessTime,@LastWriteTime);
  FileClose(fh);
end;

procedure SetTime;
var
  fh:Integer;
begin
  fh:=FileOpen('C:\datei.ext',fmOpenWrite or fmShareDenyNone);
  SetFileTime(fh,@CreationTime,@LastAccessTime,@LastWriteTime);
  FileClose(fh);
end;

Das klappt bei Dateien einwandfrei. Aber ich möchte das auch gerne bei Directorys haben. Wenn man dwReserved0, dwReserved1 nicht setzen kann würde ich das erst mal außen vor lassen. Ich habe auch schon versucht bei FileOpen C:\tmp bzw. C:\tmp\. zu übergeben. Dort kommt aber ein Fehler (-1) zurück.

Mir würde erst mal reichen wenn ich die 3 Zeiten lesen/schreiben kann. Aber nicht auf Dateien sondern auf Directorys.

Gruß