Nun, du brauchst dazu eine Variable vom Typ TRegistry. Bei ihr setzt du den root-key auf einen der root keys

Nun kannst du mit der Methode OpenKeyReadOnly einen Schlüssel öffnen und dann mit GetKeyNames seine Unterschlüssel auflisten. Wenn du die Unterschlüssel des aktuellen Root-Keys haben willst, musst du OpenKeyReadOnly nur einen leeren String übergeben.
Am besten schreibst du dir eine rekursive Prozedur die immer für einen gefundenen Unterschlüssel aufgerufen wird, die das einfügen in einen TreeView durchführt.
Hier mal eine kleine Beispielprozedur, mit der du den Inhalt von HKEY_CURRENT_USER in eine Listbox bekommst:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
| var reg : TRegistry; sl : TStringList; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; sl := TStringList.Create; if not reg.OpenKeyReadOnly('') then showmessage('fehler'); reg.GetKeyNames(sl); Listbox1.Items.AddStrings(sl); reg.free; sl.free; |
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.