Hallo necromundo,
in der Hilfe steht:
Zitat:
The FindFirstFile function opens a search
handle and ...
was ich nicht zwangsläufig als Dateihandle interpretiere.
Die eigentlichen Daten stehen ja in WIN32_FIND_DATA .
was funktioniert (nicht schön aber geht):
Delphi-Quellcode:
var
inf,outf:tfilestream;
time1,time2,time3 : tfiletime;
begin
inf:=tfilestream.Create('c:\temp\sha1.txt',fmopenread);
outf:=tfilestream.Create('c:\temp\sha1_k.txt',fmopenreadwrite);
GetFileTime(inf.Handle,@time1,@time2,@time3);
SetFileTime(outf.Handle,@time1,@time2,@time3);
outf.Free;
inf.Free;
end;
Gruß
K-H