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

【 tulaoshi.com - 编程语言 】

　　#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("softwaremicrosoftwindowscurrentversionPINTLGNT",true);
　　temp.GetKeyNames(&listkey);
　　for(int i=0;ilistkey.Count;i++)
　　   {
　　   Memo1-Lines-Add(listkey.Strings[i]);
　　   }
　　temp.CloseKey();
　　temp.RootKey=HKEY_CURRENT_USER;
　　temp.OpenKey("softwaremicrosoftwindowscurrentversionPINTLGNT",true);
　　temp.GetValueNames(&listvalue);
　　for(int i=0;ilistvalue.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;
　　}
　　//---------------------------------------------------------------------------