uses Registry;
procedure EnumSubKeys(RootKey: HKEY; const Key: string;ListBox:TListBox);
var
Registry: TRegistry;
SubKeyNames: TStringList;
Name: string;
begin
Registry := TRegistry.Create;
Try
Registry.RootKey := RootKey;
Registry.OpenKeyReadOnly(Key);
SubKeyNames := TStringList.Create;
Try
Registry.GetKeyNames(SubKeyNames);
for Name in SubKeyNames do
ListBox.Items.Add(Name);
Finally
SubKeyNames.Free;
End;
Finally
Registry.Free;
End;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
EnumSubKeys(HKEY_CURRENT_USER, 'Control Panel',ListBox1);
end;
