Работа с реестром

[Ky3Heu,]

Привет крутым пацанам. Есть трабла небольшая. Мне надо получить в одном ключе реестра его подключи (Subkeys) и их значения (Values) для последующей обработки. Делал вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  KeyNames: TStringList;
  KeyInfo: TRegKeyInfo;
  i: Integer;
  Reg:Tregistry;
begin
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('Installer\Products',true);
ListBox1.Items.Clear;
Reg.GetKeyInfo(KeyInfo);
KeyNames:=TStringList.Create;
reg.GetKeyNames(KeyNames);
  for i:=0 to KeyNames.Count-1 do
  begin
  ListBox1.Items.Add(KeyNames[i]);
  end;
end;

Но это не работает (почему-то KeyNames=0), хотя там их до черта этих ключиков. Помогите, кто может..

[Gorychev]

Ну вы и накрутили... Вот держите:

var Reg: Tregistry;
begin
  reg := Tregistry.Create;
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    reg.OpenKey('Installer\Products', false);
    ListBox1.Items.Clear;
    reg.GetKeyNames(listbox1.Items);
  finally
    reg.Free;
  end;
end;

1. не создали объект reg
2. KeyNames: TStringList не нужен т.к. listbox1.Items имеет тип TStringList
3. зачем пот это Reg.GetKeyInfo(KeyInfo)?
4. прочитайте замечательную статью о методах класса TStringList в дальнейшем пригодится http://pblog.ru/?p=72