Discussion :

[BXDSPORT]

Bonjour
J'ai réalisé ce code

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
begin
//recherche de la clé
registre:=tregistry.Create;
registre.RootKey:=cle;
if registre.KeyExists(Edit1.Text) then
Label2.Caption:='RESULTAT : TROUVE' else
  begin
      Label2.Caption:='RESULTAT : N''EXISTE PAS';
      //postionnement
      registre.OpenKey(edit1.text,false);
 
      //Création de la clé
 
      registre.CreateKey('ShellNew');
      Label2.Caption:='RESULTAT : ShellNew réalisée';
  end;
registre.CloseKey;
registre.Destroy;

Lors du lancement, j'ai une erreur disant que la clé n'est pas créée

[Andnotor]

Que vaut RootKey ? As-tu les droits en écriture ?

Sinon, tu testes la présence d'une clé et si elle n'existe pas, tu tentes tout de même de l'ouvrir mais sans la créer

[BXDSPORT]

J'ai dans la liste :
//0 HKEY_CURRENT_USER
//1 HKEY_USERS
//2 HKEY_LOCAL_MACHINE
//3 HKEY_CLASSES_ROOT
//4 HKEY_CURRENT_CONFIG

J'essaye avec le HKEY_CLASSES_ROOT.

[Andnotor]

J'essaye avec le HKEY_CLASSES_ROOT.

Alors pas possible sans élévation de privilèges
Sans, tu ne peux écrire que dans HKEY_CURRENT_USER.