كيف يمكننا جلب المفاتيح من الرجستري من مجلد معين؟

[SMP3]

و عليكم السلام

PHP كود :

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;