读取注册表中一个子键下的所有子键
2016-02-19 13:11
下面图老师小编要向大家介绍下读取注册表中一个子键下的所有子键，看起来复杂实则是简单的，掌握好技巧就OK，喜欢就赶紧收藏起来吧！
#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;
}
//---------------------------------------------------------------------------
