Das habe ich auch schon versucht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
aHandle: THandle;
LastAccessTime, CreationTime, LastWriteTime: TFileTime;
begin
aHandle := CreateFile('c:\abc', FILE_READ_ATTRIBUTES, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Edit1.Text := BoolToStr(GetFileTime(aHandle, @CreationTime, @LastAccessTime, @LastWriteTime));
DoFileWork(FO_COPY, 'c:\abc', 'd:\abc', FOF_SILENT or FOF_NOERRORUI);
aHandle := CreateFile('d:\abc', FILE_WRITE_ATTRIBUTES, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Edit2.Text := BoolToStr(SetFileTime(aHandle, @CreationTime, @LastAccessTime, @LastWriteTime));
end;
Es liefert aber sowohl GetFileTime als auch SetFileTime False zurück.
Hab auch schon versucht den Dateinamen mit \ zu beenden ('c:\abc\') geht aber auch nicht.
(Is bestimmt irgend etwas total banales, aber ich komm einfach nicht drauf...)