Mehrere Registryeinträge in listbox übertragen?

[DeddyH]

Falls ich Dich richtig verstanden habe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
    List: TStringList;
    i: integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly('SOFTWARE\Borland\Delphi\7.0') then
      begin
        List := TStringList.Create;
        try
          Reg.GetValueNames(List);
          for i := 0 to List.Count - 1 do
            ListBox1.Items.Add(Format('%s -> %s',[List[i],Reg.ReadString(List[i])]));
        finally
          List.Free;
        end;
        Reg.CloseKey;
      end;
  finally
    Reg.Free;
  end;
end;