Bonjour à toutes et à tous,
Avec cette excellente source de Andnotor, sur Windows11 cela ne fonctionne plus certainement avec la sécurité ?
Quelqu'un a une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 procedure ChangeCreateFileTime(const aFileName :TFileName; const aDate :TDateTime); var hFile :THandle; SystemTime :TSystemTime; FileTime :TFileTime; begin if FileExists(aFileName) then begin hFile := FileOpen(aFileName, fmOpenWrite or fmShareDenyWrite); if hFile <> -1 then try DateTimeToSystemTime(aDate, SystemTime); SystemTimeToFileTime(SystemTime, FileTime); LocalFileTimeToFileTime(FileTime, FileTime); if not SetFileTime(hFile, @FileTime, nil, nil) then RaiseLastOSError; finally FileClose(hFile); end else RaiseLastOSError; end else Raise Exception.Create(Format('Le fichier "%s" n''existe pas !', [aFileName])); end;
En vous remerciant.
@+,
cincap
Partager