Discussion :

[yosthegost]

Bonjour,

Je voudrai savoir comment faire pour récupérer le 'Nom de la Valeur' contenu dans un dossier de ma base de registre?

Merci

[tatareau]

http://delphi.developpez.com/faq/?page=basederegistre

[yosthegost]

J'ai trouver sa Merci, mais je ne sais pas comment l'utiliser.

Lorsqu'on envisage d'effectuer un traitement itératif sur un ensemble de clés, on utilise la méthode GetKeyNames(Strings: TStrings); Elle permet de récupérer dans une liste (TSrings) l'ensemble des noms de toutes les sous-clés de la clé en cours.

Registre.GetKeyNames(MaListeDeCle);

[yosthegost]

Par exemple je veut tous les Nom de Clé de:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths

[aityahia]

utiliste l'unité registry et une variable de type TRegistry.

Code :

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

1
2
3
4
5
6
7
8
 
Var Reg: TRegistry; //pour la déclaration  
 
 
reg :=Tregistry.Create; 
reg.Openkey('le chemin de ta clé',True); // ouveruture de la clé
 
mavleur := reg.readBool('le nom de la valeur');

ReadBool c'est pour lire une valeur booleean il existe plusieur fonction pour chaque type Tregistry+F1

[aityahia]

c'est extrement simple vous d'eclarer une variable de type Tstrings;
et vous appleler la fonction

Code :

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

1
2
3
4
5
var Maliste : TStrings;
 
Reg.RootKey := HKEY_LOCAL_MACHINE //sans les quotte 
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths',False);
Reg.GetKeyNames(MaListe);

[yosthegost]

reg.readBool('le nom de la valeur');

Juste 'le nom de la valeur' c'est ce que je veut comme resultat.

[aityahia]

vous pouvez utilisez la foction GetValueNames

et vous accéder a vous valeur

exemple :

Code :

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

reg.ReadBool(Maliste[1]);

reste a récupérer le type de la valeur avant de la lire
avec

Reg.GetDataType(Maliste[1])

rdUnknown La valeur de donnée est de type inconnu.
rdString La valeur de donnée est une chaîne
rdExpandString La valeur de donnée est une chaîne long (générlement pour les path)
rdInteger La valeur de donnée est un nombre sur 32 bits.
rdBinary La valeur de donnée est de type binaire,sous n'importe quelle forme.

[yosthegost]

Désolé pour mon incompétance mais je né pas tré bien compris tu peu reprendre au début Merci
et encore désolé

[yosthegost]

J'ai fait ça mais j'ai une violation d'accés au niveau de ReadBool.

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
 Reg :TRegistry;
 Maliste : TStrings;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths', False);
Reg.GetKeyNames(Maliste);
Reg.ReadBool(Maliste[1]);  // La violation est ici
Reg.GetDataType(Maliste[1]);
ShowMessage(Reg.ReadString(Maliste[1]));
Reg.Free;
end;

Je ne comprend pas pourkoi.

[aityahia]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
 Reg :TRegistry;
 Maliste : TStrings;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths', False);
Reg.GetKeyValues(Maliste);
if Reg.GetDataType(Maliste[1]) =  RdBinary then Reg.ReadBool(Maliste[1]);  
ShowMessage(Reg.ReadString(Maliste[1]));
Reg.Free;
end;

[aityahia]

je peut savoir ce que vous voullez faire je vous aiderai mieux,

Maliste[1] n'est qu'un exemple la string liste contiendra tous les valeur de la clé alors pour pouvoir les toutes il faudra les parcourir avec une boucle.

[anapurna]

salut

il faut deja creer la liste avant de la passe en paramettre a ta fonction

Code :

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

Malist := TStringlist.create;

ensuite
je ne connait que les fonctions

Code :

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

1
2
GetKeyNames
 GetValueNames

dans la registry la votre (Reg.GetKeyValues(Maliste); ) elle vient d'ou ?

@+ Phil

[aityahia]

salut

il faut deja creer la liste avant de la passe en paramettre a ta fonction

Code :

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

Malist := TStringlist.create;

zut la création de la liste est une évidence j'avai oublier.

[yosthegost]

Ok donc c'est peut etre pour ça que j'avait l'erreur je teste et je vous tien au courant

[yosthegost]

Maintenant j'ai cette erreur:

Message: Indice de liste hors limites (1).

Et pourtant j'ai fait le programme que tu m'a donnée aityahia.

[Lung]

Il faut que l'élément de la liste que tu interroges existe, sinon tu as cette erreur.
Pour tester la longueur d'une liste : Length(LaListe);
Précision : une liste commence à l'index 0.

[tissemsiltbelkhous]

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
var   Reg :TRegistry;    val:integer;
begin
      Reg := TRegistry.Create;
      Reg.RootKey := HKEY_CURRENT_USER;
      Reg.OpenKey('belkhous', True);
 
    If Reg.ValueExists('belkhous') then
      begin
      val := reg.ReadInteger('belkhous');
        val:=val+1;
      end;
      Reg.WriteInteger('belkhous', Val);
    If Reg.ValueExists('belkhous') then
    Begin
        Label3.Caption :=IntToStr(val);
    End;
    Reg.Free;
end;