|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
编程思路：动态创建一个字符串列表，将注册表某个主键下所有项逐个添加到列表中，这样我们就需要动态创建一个列表项，下面是具体的源代码：F9gLinux联盟
F9gLinux联盟
创建一个新的窗体，在上面放一个combobox控件用来添加注册表主键下的所有项目。F9gLinux联盟
F9gLinux联盟
CB 为 ComboBox 控件F9gLinux联盟
F9gLinux联盟
F9gLinux联盟
procedure TForm1.FormCreate(Sender: TObject);F9gLinux联盟
F9gLinux联盟
var F9gLinux联盟
F9gLinux联盟
reg:Tregistry; //定义注册表类 F9gLinux联盟
F9gLinux联盟
i:Integer;//用来显示主键下项目的总数F9gLinux联盟
F9gLinux联盟
list:Tstringlist;//定义列表项F9gLinux联盟
F9gLinux联盟
beginF9gLinux联盟
F9gLinux联盟
list:=Tstringlist.Create;//动态创建列表项F9gLinux联盟
F9gLinux联盟
reg:=Tregistry.Create;//创建注册表项F9gLinux联盟
F9gLinux联盟
reg.RootKey:=HKEY_CURRENT_USER;//定义主键所在的根键（可更改）F9gLinux联盟
F9gLinux联盟
if reg.OpenKey('software\microsoft\internet explorer\typedurls',false) then//打开我们想要的主键（可更改）F9gLinux联盟
F9gLinux联盟
beginF9gLinux联盟
F9gLinux联盟
reg.GetValueNames(list);//将该主键下所有项读到字符串列表中F9gLinux联盟
F9gLinux联盟
for i:= 0 to list.Count-1 doF9gLinux联盟
F9gLinux联盟
cb.Items.Add(reg.ReadString(list.Strings[i]));//将列表项中的各项逐一添加到F9gLinux联盟
cb列表框中F9gLinux联盟
F9gLinux联盟
end;F9gLinux联盟
F9gLinux联盟
reg.CloseKey; F9gLinux联盟
F9gLinux联盟
reg.Destroy;//关闭注册表，释放内存F9gLinux联盟
F9gLinux联盟
end; |
|
|
|
|
|
|
