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ß