读出主键下所有项

时间:2010-02-26 18:24:26  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:ox 控件procedure TForm1.FormCreate(Sender: TObject);var reg:Tregistry; //定义注册表类 i:Integer;//用来显示主键下项目的总数list:Tstr...
  正文:编程思路:动态创建一个字符串列表,将注册表某个主键下所有项逐个添加到列表中,这样我们就需要动态创建一个列表项,下面是具体的源代码

创建一个新的窗体,在上面放一个combobox控件用来添加注册表主键下的所有项目。

CB 为 ComboBox 控件


procedure TForm1.FormCreate(Sender: TObject);

var

reg:Tregistry; //定义注册表类

i:Integer;//用来显示主键下项目的总数

list:Tstringlist;//定义列表项

begin
  
  list:=Tstringlist.Create;//动态创建列表项

  reg:=Tregistry.Create;//创建注册表项

  reg.RootKey:=HKEY_CURRENT_USER;//定义主键所在的根键(可更改)

  if reg.OpenKey('softwaremicrosoftinternet explorertypedurls',false) then//打开我们想要的主键(可更改)

  begin
    
    reg.GetValueNames(list);//将该主键下所有项读到字符串列表中

    for i:= 0 to list.Count-1 do
    
    cb.Items.Add(reg.ReadString(list.Strings[i]));//将列表项中的各项逐一添加到
cb列表框中
    
  end;
  
  reg.CloseKey;
  
  reg.Destroy;//关闭注册表,释放内存

end;

"读出主键下所有项"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12935.html


关键字:

关于《读出主键下所有项》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td