[已解决]关于读取注册表

hdstu

我想在窗口打开后在Edit1中显示某注册中的一项内容，如果注册表中内容不为空或者是不存在则Edit1的内容为空，谢谢……

最佳答案

月排行榜 / 总排行榜

hdstu

2015-1-2 21:44:47

已经百度解决 谢谢回复……

procedure TForm_main.FormCreate(Sender: TObject);
   var
   MyReg : TRegistry;
begin
  Try
    MyReg := TRegistry.Create;
    MyReg.RootKey := HKEY_CURRENT_USER;
    if MyReg.OpenKey('\Software\123\21,False) then
    begin
      setupdir:=myreg.ReadString('AppPath');
      Edit1.Text:= setupdir ;
      //Application.MessageBox('读取注册表数据成功！','提示信息',64);
      MyReg.CloseKey;
      MyReg.Free;
    end;
  Except
    Application.MessageBox('读取注册表数据失败！','提示信息',64);
  end;
end;

跳转到最佳答案楼层

hdstu

已经百度解决 谢谢回复……

procedure TForm_main.FormCreate(Sender: TObject);
   var
   MyReg : TRegistry;
begin
  Try
    MyReg := TRegistry.Create;
    MyReg.RootKey := HKEY_CURRENT_USER;
    if MyReg.OpenKey('\Software\123\21,False) then
    begin
      setupdir:=myreg.ReadString('AppPath');
      Edit1.Text:= setupdir ;
      //Application.MessageBox('读取注册表数据成功！','提示信息',64);
      MyReg.CloseKey;
      MyReg.Free;
    end;
  Except
    Application.MessageBox('读取注册表数据失败！','提示信息',64);
  end;
end;

thesmalltree

註冊表??請問是指text??
edt1.text:='';

向往青莲

RegOpenKey
RegQueryKey