怪物猎人染色球作用:注册表 获取数据的一些问题
来源:百度文库 编辑:中科新闻网 时间:2024/05/07 13:00:49
//delphi对注册表 获取数据的一些问题
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('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List',false) then
begin
reg.GetValueNames(list);
for i:= 0 to list.Count-1 do
memo1.lines.Add(reg.ReadString(list.Strings[i]));
end;
reg.CloseKey;
reg.Destroy;
这样的话 可以在控件中显示信息 但是他获取的信息是 键值的数据 并不是我想要的 键值名称. 我查了其他资料说是把 GetValueNames 函数换成GetkeyNames 但是我试了 控件里什么显示都没有啊 请问 该怎么才能显示. (这个代码主要是显示 window自带的防火墙中都有什么程序)
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('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List',false) then
begin
reg.GetValueNames(list);
for i:= 0 to list.Count-1 do
memo1.lines.Add(reg.ReadString(list.Strings[i]));
end;
reg.CloseKey;
reg.Destroy;
这样的话 可以在控件中显示信息 但是他获取的信息是 键值的数据 并不是我想要的 键值名称. 我查了其他资料说是把 GetValueNames 函数换成GetkeyNames 但是我试了 控件里什么显示都没有啊 请问 该怎么才能显示. (这个代码主要是显示 window自带的防火墙中都有什么程序)
最好是不要那样做,因为那样很容易让你的机子出毛病....