读取注册表中一个子键下的所有子键

#include <TRegistry.hpp>

TRegistry &temp=*new TRegistry();

TStringList &listvalue= *new TStringList();

TStringList &listkey =*new TStringList();

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

String tr;

temp.RootKey=HKEY_CURRENT_USER;

temp.OpenKey("software\\microsoft\\windows\\currentversion\\PINTLGNT",true);

temp.GetKeyNames(&listkey);

for(int i=0;i<listkey.Count;i++)

{

Memo1->Lines->Add(listkey.Strings[i]);

}

temp.CloseKey();

temp.RootKey=HKEY_CURRENT_USER;

temp.OpenKey("software\\microsoft\\windows\\currentversion\\PINTLGNT",true);

temp.GetValueNames(&listvalue);

for(int i=0;i<listvalue.Count;i++)

{

Memo1->Lines->Add(listvalue.Strings[i]+ String("----------->") + temp.ReadString(listvalue.Strings[i]));

}

temp.CloseKey();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)

{

delete &temp;

delete &listvalue;

delete &listkey;

}

//---------------------------------------------------------------------------