Поиск параметров реестра

[Лубышев]

Такая проблемка:
Мне нужно чтоб прога просматривала определенную ветку реестра(допустим пусть даже бедет ту же HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows\CurrentVersion\Run)
и в StringGrid в первый столбик выписывала все параметры из этой ветки, а во второй значения этих параметров.

В общем мне нужно организовать поиск всех параметров по ветке реестра).

В твикерах часто используют это...

[eoln]

procedure TForm1.Button1Click(Sender: TObject);
function GetReg(strPath:string; strName:string): string;
var
  Registry: TRegistry;
begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=2147483649;
  Registry.OpenKey(strPath,False);
  Result :=Registry.ReadString(strName);
  Registry.Free;
end;
var val:TStringList;
    s, ss:string;
    i:integer;
    Reg:TRegistry;
begin
try
    Val:=TStringList.Create;
    Reg:=Tregistry.Create;
    try
      Reg.RootKey:=2147483649;
      Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
      Reg.GetValueNames(Val);
      for I:=0 to Val.Count-1 do begin   
            s:=Val.Strings[i];
            //listbox1.Items.Add(s);
            //s-имена строк   
            ss:=getreg('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', s);   
            //listbox1.Items.Add(ss);
            //ss-то, что написано там
      end;
    finally
      Reg.Free;   
    end;
  finally
    Val.Free;   
  end;
end;