Habe ein wenig rumprobiert, das ist dabei raus gekommen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
aHandle: THandle;
FindData, FindData2: TWIN32FindData;
begin
FindFirstFile('
c:\abc', FindData);
// Zeitstempel lesen
DoFileWork(FO_COPY, '
c:\abc', '
d:\abc', FOF_SILENT
or FOF_NOERRORUI);
//Kopieren
aHandle := FindFirstFile('
d:\abc', FindData2);
//Handle holen
SetFileTime(aHandle, @FindData.ftCreationTime, @FindData.ftLastAccessTime, @FindData.ftLastWriteTime);
//Zeitstempel schreiben
end;
aber SetFileTime schlägt immer fehl
