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

hdstu

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

最佳答案

月排行榜 / 总排行榜

hdstu

2015-1-2 21:44:47

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

1. procedure TForm_main.FormCreate(Sender: TObject);
   
2.    var
   
3.    MyReg : TRegistry;
   
4. begin
   
5.   Try
   
6.     MyReg := TRegistry.Create;
   
7.     MyReg.RootKey := HKEY_CURRENT_USER;
   
8.     if MyReg.OpenKey('\Software\123\21,False) then
   
9.     begin
   
10.       setupdir:=myreg.ReadString('AppPath');
    
11.       Edit1.Text:= setupdir ;
    
12.       //Application.MessageBox('读取注册表数据成功！','提示信息',64);
    
13.       MyReg.CloseKey;
    
14.       MyReg.Free;
    
15.     end;
    
16.   Except
    
17.     Application.MessageBox('读取注册表数据失败！','提示信息',64);
    
18.   end;
    
19. end;

复制代码

跳转到最佳答案楼层

hdstu

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

1. procedure TForm_main.FormCreate(Sender: TObject);
   
2.    var
   
3.    MyReg : TRegistry;
   
4. begin
   
5.   Try
   
6.     MyReg := TRegistry.Create;
   
7.     MyReg.RootKey := HKEY_CURRENT_USER;
   
8.     if MyReg.OpenKey('\Software\123\21,False) then
   
9.     begin
   
10.       setupdir:=myreg.ReadString('AppPath');
    
11.       Edit1.Text:= setupdir ;
    
12.       //Application.MessageBox('读取注册表数据成功！','提示信息',64);
    
13.       MyReg.CloseKey;
    
14.       MyReg.Free;
    
15.     end;
    
16.   Except
    
17.     Application.MessageBox('读取注册表数据失败！','提示信息',64);
    
18.   end;
    
19. end;

复制代码

thesmalltree

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

向往青莲

RegOpenKey
RegQueryKey