小菜求助，关于注册表的问题~

[Gue]

我想把RUN主键下的所以键值读到ListBox里，请问要怎么写代码，如果有空的话请给个例子看看，谢谢~~~

[lxpbuaa]

uses Registry;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False) then
begin
Reg.GetKeyNames(ListBox1.Items);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[bdmh]

编程思路：动态创建一个字符串列表，将注册表某个主键下所有项逐个添加到列表中，这样我们就需要动态创建一个列表项，下面是具体的源代码：

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

CB 为 ComboBox 控件（listbox控件同理）

procedure TForm1.FormCreate(Sender: TObject);

var

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

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

list:Tstringlist;//定义列表项

begin

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

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

reg.RootKey:=HKEY_LOCAL_MACHINE;//定义主键所在的根键（可更改）

if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',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;