Mehrere Registryeinträge in listbox übertragen?

[fortuneNext]

Hallo, ich hab wieder eine Frage...
Ich habe eine beliebige Anzahl von Strings in meiner Registry gespeichert. Alle sind am selben Ort, z.Z.
HKEY_LOCAL_MACHINE\SOFTWARE\TEST\TEST

Dort befinden sich jetzt eine gewisse Anzahl von Strings, die zum Zeitpunkt des Programmstarts nicht bekannt ist.

Nun habe ich eine TListBox und möchte alle Strings, die in diesem Registryort sind, in die ListBox übertragen. Wie mache ich denn das?

[mkinzler]

Mit .GetKeys() kannst du sämtliche Subkeys ermitteln.

[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;

[fortuneNext]

Hi,
das ist in der Tat genau das, was ich gesucht habe vielen Dank!