Lister clés contenues dans HKEY_USERS (Registre)

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:

---

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;

---

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.

Salut,

Code:

---

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.

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.

Citation:

---

//---------------------------------------------------------------------------
#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();
}
//---------------------------------------------------------------------------

---

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

Code:

---

registre->OpenKeyReadOnly("");

---

comme vous me l'avez dis.

Code:

---

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.