Auslesen von Unterverzeichnissen und Auswahl eines davon

[chrissi]

Hallo,
ich möchte gerne in der Registry ab einem bestimmten Zweig die vorhandenen Unterverzeichnisse auslesen, diese dann auswählen können, um bei einem davon dann die Werte auszulesen.
Ich habe versucht TRegistry und GetKeyNames zu arbeiten, aber das klappt einfach nicht.
Womit mache ich das am besten ? Vielleicht wäre es möglich ein kleines Beispiel zu geben, damit ich sehe wo mein Fehler liegt ?
Danke im Voraus und grüße
Chrissi

[Steve]

Moin,

GetKeyNames funzt doch einwandfrei: :)

Delphi-Quellcode:

{...}
var
  reg : TRegistry;
  keys: TStringList;
begin
  { - Erzeugen und initialisieren - }
  reg  := TRegistry.Create;
  keys := TStringList.Create;
  keys.Clear;
  reg.RootKey := HKEY_LOCAL_MACHINE; // Beispiels-
  reg.OpenKey('Software',FALSE);     // weise...
  { - Informationen auslesen - }
  reg.GetKeyNames(keys);
  { - Informationen anzeigen - }
  memo1.Lines.AddStrings(keys);
  { - Aufräumen - }
  FreeAndNil(keys);
  FreeAndNil(reg);
end;

Die Klasse TStrings enthält abstrakte Methoden und soll nicht direkt instanziiert werden, sondern nur Nachkommen, z.B. eben TStringList!

Gruß
Stephan

[chrissi]

Super danke so gehts. Ich hatte es mit TString statt TStringList versucht und auch noch einen anderen Fehler drin.
Vielen Dank !
Chrissi

[Steve]

Kein Problem :thumb:

Gruß
Stephan

[Christian Seehase]

Moin Chrissi,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Von mir nur noch ein allgemeiner Tip.
Wenn Du einen Codeabschnitt hast, der nicht wie gewünscht funktioniert, wäre es meist sehr hilfreich diesen gleich mit zu posten, damit gleich auf eventuelle Fehler eingegangen werden kann.

@Steve:
Trag' doch bitte noch den Resourcenschutzblock, und vor allem das CloseKey nach.
Zu letzterem wäre noch die Prüfung wichtig, ob das Öffnen des Keys erfolgreich war ;-)