论坛 › Delphi交流 › 关于读取注册表

hdstu 发表于 2015-1-2 21:44:46

关于读取注册表

我想在窗口打开后在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;

thesmalltree 发表于 2015-1-5 00:23:09

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

向往青莲 发表于 2015-1-6 09:29:24

RegOpenKey
RegQueryKey

查看完整版本: 关于读取注册表