讀取注冊表中一個子鍵下的所有子鍵

　　#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;i<listkey.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;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;
　　 }
　　 //---------------------------------------------------------------------------