Discussion :

[gilardino]

Salut chers developpeurs

Je veux ajouter une valeur dans la base de registre Windows xp, la valeur aura le nom ‘valeur1’ et contenu dans la clé 'run' qui se trouve sur le chemin : HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Run

Pour vérifier l’existence de la clé « run », J’ai essayé la syntaxe suivante :

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
 
Var   Reg: TRegistry; 
.
.
.
reg:=TRegistry.Create;
Reg.RootKey :=HKEY_LOCAL_MACHINE;
 
if not Reg.OpenKey('Run', false) then
begin
showmessage('la clé n''existe pas') ;
end
else
begin
showmessage('la clé existe') ;
end;

mais run n'été pas reconnu par delphi (message envoyé: "la clé n'existe pas" ), alors qu'elle existe réellement!

j’ai réessayé la syntaxe qui consiste à donner tout le chemin vers la clé 'run', mais sans parvenir à ouvrir la clé 'run'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
reg:=TRegistry.Create;
Reg.RootKey :=HKEY_LOCAL_MACHINE;
 
if not Reg.OpenKey(' HKEY_CURRENT_USER\Software\Microsoft\Windows\Run', false) then
begin
showmessage('la clé n''existe pas') ;
end
else
begin
showmessage('la clé existe') ;
end;

merci pour vos aides à venir, bye

[Cl@udius]

Salut

Il faut préciser le chemin complet de la clé, sans de nouveau préciser la 'RootKey' dans ce chemin.

Donc pour ouvrir ta clé sous HKLM, tu fais ceci:

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
 
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if not Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
        False) then
        ShowMessage('la clé n''existe pas')
      else
      begin
        ShowMessage('la clé existe') ;
        // suite ...
      end;
      CloseKey;
    finally
      Free;
    end;
  end;
end;

Nota: il existe la même clé sous HKCU.

@+ Claudius

[defluc]

Et pour la lecture :

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
var
  Registre : TRegistry;
  Val1 : TString;
  Val2 : Integer;
  Val3 := TDate;
begin
  RootKey := HKEY_LOCAL_MACHINE;
  KeyName := 'Software\Microsoft\Windows\CurrentVersion\Run';
  Registre := TRegistry.Create;  // création du registre
  Registre.RootKey := RootKey; //Définit la clé principale
  Registre.OpenKey (KeyName,False);
  Val1 := Registre.ReadString('Code1'); //   Lecture
  Val2 := Registre.ReadInteger('Code2'); //  et affectation
  Val3 := Registre.ReadDate('Code3'); //     des valeurs
  Registre.CloseKey;
  Registre.Free;
end;

[gilardino]

merci les patrons du delphi
problème réglé