Auslesen von Unterverzeichnissen und Auswahl eines davon

[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