Discussion :

[cincap]

Bonjour à toutes et à tous,

Avec cette excellente source de Andnotor, sur Windows11 cela ne fonctionne plus certainement avec la sécurité ?

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;

Quelqu'un a une idée ?

En vous remerciant.

@+,

cincap

[fbalien]

Bonjour

de mon cote W11 D12 pas de soucis mise a part décalage d'une heure
même avec exécuter en tant que admin ?

[cincap]

Bonjour à toutes et à tous,

@ fbalien, merci de ta réponse et entre temps j'ai constaté que c'était mon antivirus qui bloquait mon application parce que je modifiais des données sensibles.

J'utilise "ac-11_30b.exe" et plus d'options sans problème.

Je vais fermer ce topic comme résolut.

@+,

cincap

[cincap]

Bonjour à toutes et à tous,

@ fbalien, je me demandais si ma commande est toujours exacte concernant la procédure car c'est bien Norton qui surveille les modifications à certains fichiers.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
var
Filename : string;
begin
 op1.FileName := '';
 
 op1.InitialDir := chappli;
 
if op1.Execute then filename := op1.filename;
ChangeCreateFileTime(FileName, 24/02/2021);

Merci,

@+,

cincap

[Charly910]

Bonjour Cincap,

tu ne peux pas écrire ton TDateTime directement sous la forme JJ/MM/AAAA tu dois utiliser la fonction:

EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime;

A+
Charly

[cincap]

Bonjour à toutes et à tous,

@ Charly910, merci pour ton message et bien vu, j'ai corrigé en utilisant dans le uses "Dateutils" et le message d'erreur est bien à cause de Norton :

Erreur système. Code : 5. Accès refusé.

Ce qui m'étonne c'est avec un logiciel free, cela passe malgré le protecteur de données de Norton.

Modif : Après vérification c'était bien le protecteur de données de Norton qui me bloquait même avec les droits Administrateur, j'ai testé en désactivant et tout fonctionne correctement comme quoi.

@+,

cincap