Discussion :

[cincap]

Bonjour à toutes et à tous.

Depuis les dernières mises à jour de Windows 10, la base de registre a subit des restrictions.

En effet pour écrire une clé afin de permettre à une petite horloge de s'afficher au démarage de Windows 10 il a fallut modifier le code et lancer l'application en mode administrateur, ce mode m'ennuie car une fenêtre s'affiche.

Mais lorsque cette clé est créée, avec une ancienne procédure pour la déletée cela ne fonctionne plus.

Par contre avec un fichier batch sans être en administrateur cela fonctionne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function Tform1.GetDeleteValue(SelectRootKey: HKEY; SelectKey:string; Key: string): Boolean;
begin
  with TRegistry.Create do
    begin
      try
        RootKey := SelectRootKey;
        OpenKey(SelectKey, False);
        Result := DeleteValue(Key);
      finally
       Free;
      end;
    end;
end;

Usage :

Code :

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

1
2
 
 GetDeleteValue(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Run', 'CinClockVocal'); //Ne fonctionne plus

Pour créer la clé maintenant:

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
 
const
 KEY_WOW64_64KEY = $0100;
var
  Reg: TRegistry;
  Key: string;
begin
Reg := TRegistry.Create;
try
  Reg.Access := KEY_WOW64_64KEY or KEY_WRITE;
 
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then
  begin
    Reg.WriteString('CinClockVocal',Paramstr(0){Application.ExeName});
    Reg.CloseKey;
  end;
finally
  Reg.Free;
end;
end;

Si quelqu'un a une idée pour effacer, merci d'avance.

! je ne veus pas utiliser la clé HKEY_CURRENT_USER;

@+,

cincap

[popoy]

Si ça fonctionne avec un batch dos
Alors regarde cette page
https://www.developpez.net/forums/d2...-commande-dos/

[Charly910]

Bonjour Cincap,

tu veux effacer la valeur ou bien ta clef ?

Est ce que DeleteKey('nom_de_la_clé') ne fonctionne pas ?

As tu regardé la FAQ ?

A+
Charly

PS : tu es en 32 bits ou en 64 bits ?

[Andnotor]

Tu écris dans la ruche 64 bits mais veux effacer dans la 32. Forcément que ça va pas le faire

[cincap]

Bonjour à toutes et à tous,

@ popoy, merci pour le retour, je l'avais fait dans mes tests c'est pour cette raison que j'avais indiqué :

Par contre avec un fichier batch sans être en administrateur cela fonctionne.

@ Charly910, merci pour le retour, c'est la clé que je dois mettre ou pas, mais je te rassure dans la clé HKCU cela fonctionne bien.

@ Andnotor, merci aussi pour le retour, je me doutais bien que c'était la le problème, j'avais testé aussi avec un manifest mais le problème de la petite fenêtre me génait.

Donc apparemment je dois modifier la procédure delete comme j'ai fait celle pour créer la clé.

Je vais encore faire des essais ce jour.

Bonne journée.

@+,

cincap

[cincap]

@ tous, voici ma procédure modifiée qui fonctionne :

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
29
 
procedure RemoveFromRunKey(ApTitle: string);
const
 KEY_WOW64_64KEY = $0100;
var
  Reg: TRegistry;
  TheKey: string;
  ListOfEntries: TStringList;
  i: integer;
begin
  Reg := TRegistry.Create;
  try
  Reg.Access := KEY_WOW64_64KEY or KEY_WRITE;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run';
 
  if not Reg.OpenKey(TheKey, False) then
    ShowMessage('Key not found')
  else begin
    if Reg.DeleteValue(ApTitle) then
      ShowMessage('Removed: ' + ApTitle)
    else
      ShowMessage('Not found: ' + ApTitle);
  end;
  finally
  Reg.CloseKey;
  Reg.Free;
end;
end;

usage :

Code :

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

1
2
 
RemoveFromRunKey('CinClockVocal');

Merci à Andnotor de m'avoir mis sur la voie et merci à tous.

Le topic peut être fermé.

@+,

cincap