Hallo Leute,
ich habe mir vor 15 Jahren eine Routine gebastelt, mit der ich die drei Zeit-Stempel einer Datei verändern kann.
Delphi-Quellcode:
if FileExists(Filename) then beep;
HFileResult := OpenFile(pAnsiChar(filename), ofstr, OF_WRITE);
Result:=0;
if HFileResult <> HFILE_ERROR then begin
if dtCreated > 0 then SetFileTime(HFileResult, @FT1, nil, nil);
if dtModified > 0 then SetFileTime(HFileResult, nil, nil, @FT2);
if dtLastAccess > 0 then SetFileTime(HFileResult, nil, @FT3, nil)
end
else begin
Result:=GetLastError;
if ShowErrorMsg then ShowMessage('"'+Filename+'"'#13+SysErrorMessage(Result));
end;
Das hat immer funktioniert, jetzt geht es nicht mehr. "Das System kann die Datei nicht finden". Das ist Unsinn, die Datei ist vorhanden! Sie wird nicht von einem anderem Prozess benutzt und ist auch nicht schreibgeschützt. Dann gäbe es doch eine andere Fehlermeldung.
Der Fehler tritt seit dem Update auf Windows 10 2003 auf.
Kann Zufall sein. Was ist da los?
Gruß Willie.