关于操作注册表

Question

Uses Registryvar
  Reg: TRegistry
begin
  try
    Reg := TRegistry.Create;
    Reg.RootKey = { ........... };
    Reg.OpenKey({............}, False);
    Reg.ReadValues         //好像是这个属性，
    ............
  finally
    Reg.Free;
  end
end

Answer 1

使用TRegistry类就可以了，先构造一个实例，然后使用类的方法就可以了！

Answer 2

转贴自: zswanguses
  Registry;procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  with TRegistry.Create do try //这点提示够了吗，不够继续
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\Microsoft\Windows\CurrentVersion', False) then
      GetValueNames(ComboBox1.Items); '
    CloseKey;
  finally
    Free;
  end;
end;

Answer 3

'\Software\Microsoft\Windows\CurrentVersion' //自行修改

Answer 4

uses  Registry;
procedure TForm1.Button1Click(Sender: TObject);
var reg:TRegistry;
begin
  ComboBox1.Clear;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  if  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False) then
   reg.GetValueNames(ComboBox1.Items);
  reg.CloseKey;  reg.Free;
  ComboBox1.ItemIndex:=0;
end;

Answer 5

题目错了，是如何显示子键，如software下的键