如何获得注册表指定项中的所有键值和信息

关于网友提出的“ 如何获得注册表指定项中的所有键值和信息
”问题疑问，本网通过在网上对“ 如何获得注册表指定项中的所有键值和信息
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： 如何获得注册表指定项中的所有键值和信息
描述:

如何获得注册表指定项中的所有键址名字和信息
如获得HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run中的每一个键值的名字

---

解决方案1:

我是用TStrings
var
  MyStrings         : TStrings;
  i                 : integer;
...
begin
  MyReg := TRegistry.Create;
  with MyReg do
    begin
      RootKey := HKEY_CURRENT_USER;
      OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
      GetKeyNames(MyStrings);
      CloseKey;
   end;
   if MyStrings.Count > 0 then
     for i := 0 to MyStrings.Count - 1 do
       begin
         ComboBox1.Items[i] := MyStrings[i];
         ......
       end;
end;

解决方案2:

procedure TForm1.Button1Click(Sender: TObject);
var
  t:TRegistry;
begin
  t:=tregistry.Create ;
  t.RootKey:=HKEY_CURRENT_USER;
  if t.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false) then showmessage('open ok!');
  t.GetValueNames(memo1.Lines);
  t.CloseKey;
  t.Free;
end;