TRegistry durchsuchen

[Nitrous]

Abend,

kann mir jemand sagen wie ich mit Edit1 die registry durchsuche habs imoment so:

habs imoment so :

Code:

AnsiString subkeyname;
TRegistry* regkey= new TRegistry();
regkey->RootKey=HKEY_LOCAL_MACHINE;
regkey->OpenKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run",true);
if(subkeyname == Edit1->Text)
{
  TStrings *list=new TStringList();
  regkey->GetValueNames(list);

  for (int lv = 0; lv < list->Count; lv++)
  {
   AnsiString subkeyname = list->Strings[lv];
   ListBox1->Items=list;
   }
  delete list;
  }
delete regkey;
ListBox1->Visible=true;

mfg