Discussion :

[Futixu]

Bonjour,
je souhaite lister les clés contenues dans HKEY_USERS.
J'ai trouvé ce bout de code dans la faq de C++ Builder, je l'es modifié à mes besoins, cependant il ne fonctionne pas (le programme affiche 0 comme nombre de sous-clés). D'ou vient le problème?
Merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
TRegistry *registre = new TRegistry();
TStringList *mesCles = new TStringList();
 
registre->RootKey = HKEY_USERS;
registre->GetKeyNames(mesCles);
ShowMessage(mesCles->Count); // affiche le nombre de sous-clés
 
delete registre;
delete mesCles;

[Altau]

HKEY_USERS n'est pas une clé mais une ruche. La commande GetKeyNames suppose qu'on a sélectionné une clé au préalable pour pouvoir connaître ses sous-clés.

[FredericB]

Salut,

Code :

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

1
2
 
"GetKeyNames permet de déterminer les noms de toutes les sous-clés de la clé en cours"

Je pense que tu devrais d'abord ouvrir une clé avec OpenKey, et ensuite avec ton GetKeyNames lire toutes les sous-clés de cette clé en cours.

[blondelle]

Salut Futixu:
Voici un bout de code qui permet de lire ecrire effacer dans la base de registre ( ce code permet d'afficher une boite de dialogue au redemarrage de Window ), je pense que cela va t'aider a comprendre comment mener a bien ton projet.

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <Registry.hpp> // <--- ne pas oublier
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
// ce programme fonctionne sur XP pro Pack1, a verifier que ces clefs existent bien au meme
// emplacement sur un autre systeme d'exploitation, vous modifiez la base
// de registre a vos risques et perils
{
// on lit la valeur des clefs
TRegistry *registre = new TRegistry();
registre->RootKey = HKEY_LOCAL_MACHINE;
registre->OpenKey("\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon", true);
// on lit la valeur de la premiere clef
if (registre->KeyExists("LegalNoticeCaption"));
{
if (registre->ValueExists("LegalNoticeCaption"));
{
Edit1->Text = registre->ReadString("LegalNoticeCaption");
}
}
// on lit la valeur de la deuxieme clef
if (registre->KeyExists("LegalNoticeText"));
{
if (registre->ValueExists("LegalNoticeText"));
{
Memo1->Text = registre->ReadString("LegalNoticeText");
}
}
delete registre;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// on efface la valeur des clefs
TRegistry *registre = new TRegistry();
registre->RootKey = HKEY_LOCAL_MACHINE;
registre->OpenKey("\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon", true);
// on efface la valeur de la premiere clef
if (registre->KeyExists("LegalNoticeCaption"));
{
if (registre->ValueExists("LegalNoticeCaption"));
{
registre->WriteString("LegalNoticeCaption", "");
}
}
// on efface la valeur de la deuxieme clef
if (registre->KeyExists("LegalNoticeText"));
{
if (registre->ValueExists("LegalNoticeText"));
{
registre->WriteString("LegalNoticeText", "");
}
}
delete registre;
// on efface le TEdit et le TMemo
Edit1->Text = "";
Memo1->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
// on ecrit la valeur des clefs
TRegistry *registre = new TRegistry();
registre->RootKey = HKEY_LOCAL_MACHINE;
registre->OpenKey("\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon", true);
// on ecrit la valeur de la premiere clef
if (registre->KeyExists("LegalNoticeCaption"));
{
if (registre->ValueExists("LegalNoticeCaption"));
{
registre->WriteString("LegalNoticeCaption", Edit1->Text);
}
}
// on ecrit la valeur de la deuxieme clef
if (registre->KeyExists("LegalNoticeText"));
{
if (registre->ValueExists("LegalNoticeText"));
{
registre->WriteString("LegalNoticeText", Memo1->Text);
}
}
delete registre;
// on efface le TEdit et le TMemo
Edit1->Text = "";
Memo1->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
// on quitte le programme
Form1->Close();
Application->Terminate();
}
//---------------------------------------------------------------------------

[Futixu]

Bonjour,
j'ai trouvé la solution à mon problème,
j'ai rajouté

Code :

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

registre->OpenKeyReadOnly("");

comme vous me l'avez dis.

Code :

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

1
2
3
4
5
6
7
8
9
10
TRegistry *registre = new TRegistry();
TStringList *mesCles = new TStringList();
 
registre->RootKey = HKEY_USERS;
registre->OpenKeyReadOnly("");
registre->GetKeyNames(mesCles);
ShowMessage(mesCles->Count); // affiche le nombre de sous-clés
 
delete registre;
delete mesCles;

Merci à vous tous.