如何在dephi中读写注册表

Question

如题.请详细一点.谢谢!!!!!!!!!!

Answer 1

读：TRegUtil.ReadRegistry('\SOFTWARE\ZJSOFT\SFNS\PARAMS\', 'DBParam');
写：TRegUtil.WriteRegistry('\SOFTWARE\ZJSOFT\SFNS\PARAMS\', 'DBParam', ConnStr);
其中：ConnStr为变量

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  cnt:integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;//////////设置根
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
//////////////打开键下面的\Software\Microsoft\Windows\CurrentVersion\RunOnce 
    begin
      Reg.WriteString('MyApp','"' + ParamStr(0) + '"');///写入MyApp "test.exe"
      cnt:=Reg.ReadInteger('cnt');//////////读cnt键值
      Reg.CloseKey;///////关闭
    end;
  finally
    Reg.Free;
  end;end;

Answer 3

//写  
  var
bmpname:string;
bmpreg:TRegistry;
begin
statusbar1.Panels[0].Text:='更换程序界面图片';
if openpicturedialog1.Execute then
               begin
               image1.Picture.LoadFromFile(openpicturedialog1.FileName);
               bmpname:=ExpandFileName(OpenpictureDialog1.FileName                
               image1.Refresh;
               bmpreg:=TRegistry.Create;
               try
                 begin
                  bmpreg.RootKey:=HKEY_CURRENT_USER;
                  bmpreg.OpenKey('Software\txl',true);
                  bmpreg.WriteString('bmpreg',''+bmpname+'');
                  bmpreg.CloseKey;
                  end;
                  finally
                   bmpreg.Free;
                   end;
               end;
//读
var
bmpred:string;
bmpreg:tregistry;
begin
statusbar1.Panels[0].Text:='欢迎使用个人通信系统!';
try
 begin
 bmpreg:=tregistry.Create;
 bmpreg.RootKey:=HKEY_CURRENT_USER;
 bmpreg.OpenKey('Software\txl',false);
 bmpred:=bmpreg.ReadString('bmpreg'); image1.Picture.LoadFromFile(''+bmpred+'');
 bmpreg.CloseKey;
 end;
 finally
 bmpreg.Free;
 end;
自己接分.......