怎么做本地的注册表编辑软件啊

Question

这是一段对注册表进行操作的代码。
Reg := TRegistry.Create;
  try
    if Reg.OpenKey('Software\天盛科技\MainWindows',False) then
    begin
    if Reg.ValueExists('SelectTree') then tv1.Items.Item[Reg.ReadInteger('SelectTree')].Selected := True;
      if Reg.ValueExists('SelectList') then
        if Reg.ReadInteger('SelectList') <> 65535 then
      lv1.Items.Item[Reg.ReadInteger('SelectList')].Selected := True;
      if Reg.ValueExists('WindowsTop') then Top := Reg.ReadInteger('WindowsTop');
    if Reg.ValueExists('WindowsLeft') then Left := Reg.ReadInteger('WindowsLeft');
    if Reg.ValueExists('WindowsWidth') then Width := Reg.ReadInteger('WindowsWidth');
    if Reg.ValueExists('WindowsHeight') then Height := Reg.ReadInteger('WindowsHeight');
      if Reg.ValueExists('WindowState') then WindowState := TWindowState(Reg.ReadInteger('WindowState'));
    if Reg.ValueExists('WindowsTreeWidth') then panel1.Width := Reg.ReadInteger('WindowsTreeWidth');
      if Reg.ValueExists('WindowsListHeight') then Panel5.Height := Reg.ReadInteger('WindowsListHeight');
    end;
finally
    Reg.Free;
  end;

Answer 1

请阅读Delphi的Registry单元源码，一切都可解决！