registry und Subkey

[Rakshasa]

Code:

var
x: Integer;
sl: TStringlist;

begin

sl := TStringlist.Create;

With TRegistry.Create do begin
 RootKey := HKEY_LOCAL_MACHINE;
 If OpenKey('\Software\Microsoft\Windows', false) then begin
  GetKeynames(sl);

  For x := 0 to sl.count -1 do begin
   Showmessage(sl[x]);
  end;

  CloseKey;
 end;

 free;
end;

sl.free;