delphi 读取注册表键值名

我想读取的是子键下的项的名称,应该如何操作呢?
例如读取所有串口信息,注册表的位置是
HKEY_LOCAL_MACHINE\Hardware\DeviceMap\SerialComm
这个子键下有两个项,
[img]https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/delphi%CA%C0%BD%E7/pic/item/8783fd2db6cfc0c7013bf66a.jpg[/img]
名称 类型 数据
\Device\Serial0 REG_SZ COM1
\Device\USBPDO-8 REG_SZ COM8
如何读取键值名,例如:\Device\Serial0,\Device\USBPDO-8这样的信息?

第1个回答  2011-06-01
procedure TForm1.Button18Click(Sender: TObject);
var reg:Tregistry;
KeyList: TStringList;
i: Integer;
begin
reg:=Tregistry.create;
KeyList := TStringList.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.openkey('HARDWARE\DEVICEMAP\SERIALCOMM', False);
reg.GetValueNames(KeyList);
for i := 0 to KeyList.Count - 1 do
begin
ShowMessage(KeyList[i]);
ShowMessage(reg.ReadString(KeyList[i]));
end;
reg.CloseKey;
reg.free;
KeyList.Free;
end;本回答被提问者采纳

delphi 读取注册表键值名
procedure TForm1.Button18Click(Sender: TObject);var reg:Tregistry;KeyList: TStringList;i: Integer;begin reg:=Tregistry.create;KeyList := TStringList.Create;reg.RootKey := HKEY_LOCAL_MACHINE;reg.openkey('HARDWARE\\DEVICEMAP\\SERIALCOMM', False);reg.GetValueNames(KeyList);for i ...

如何在Delphi中对注册表中的键值项判断存在与否
Reg:TRegistry;begin result:=false;try Reg:=TRegistry(Self);Reg.rootkey:=HKEY_LOCAL_MACHINE;Reg.OpenKey('\\SOFTWARE\\Passwd');if ValueExitst('pwdl') then Result:=true;finally end;end

如何在DELPHI中做注册表修改软件的设计与实现
WriteString(′delphi′,′C:\\Program Files\\borland\\delphi3\\bin\\delphi32.exe′); CloseKey; Destroy; end; end; 五、键值维护 除了在注册表中读取、存储外,程序可能还需要增加主键、删除主键、主键改名、数据值改名等。 1.创建新主键:function CreateKey(const Key: string): Boolean。 Key即为...

如何给Delphi的CPU调试窗口,增加对应源代码
回答:通过ide可以开启或者关闭,异常时出不出来CPU窗口。但是,不管什么时候,CPU窗口可以通过View\/Debug windows\/CPU调出。可能大部分人delphi开发人员对汇编都不是很熟悉,所以,这个功能,可能大部分delphi开发者用不上。即使,对汇编熟的,面对一大堆缺乏上下文的汇编代码,也很难通过CPU窗口得到他需要的信息...

delphi如何读取注册表多字符串
什么叫 多字符串 ?

delphi 关于用到paramstr(0)的问题
openkey('software\\Microsoft\\windows\\currentversion\\run',true); \/\/打开指定注册表顶,若无则创建 writestring(trim('Autorun'),application.ExeName); \/\/写入autorun启动项,键值为本程序的全路径 reg.Free;end;end;这是我的一个程序里面的代码,运行正常。发来你参考一下,建议加上try..except,...

delphi中如何设置开机自动运行
写字符串形注册表键值到:HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Run 这个键下就行了下面的代码添加记事本到自启动项, 每次开机时将自动运行: 先uses Registry 单元varreg: TRegistry;beginreg:=TRegistry.Create;tryreg.RootKey:=HKEY_CURRENT_USER;

Delphi 删除注册表键值
;1: KeyName := 'Software\\ay\\ay1';2: KeyName := 'Software\\ay\\ay2';3: KeyName := 'Software\\ay\\ay3';改为:0: KeyName := '\\Software\\ay\\ay0';1: KeyName := '\\Software\\ay\\ay1';2: KeyName := '\\Software\\ay\\ay2';3: KeyName := '\\Software\\ay\\ay3';

delphi中如何设置开机自动运行
写字符串形注册表键值到:HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Run 这个键下就行了下面的代码添加记事本到自启动项, 每次开机时将自动运行: 先uses Registry 单元 var reg: TRegistry;begin reg:=TRegistry.Create;try reg.RootKey:=HKEY_CURRENT_USER;reg.OpenKey('\\Software\\...

virus.win32.sipem.b这是什么木马 、求解
2、循环检测注册表键值HKLM\\software\\Borland\\Delphi\\X.0 判断当前机器是否安装Delphi。检测版本(4.0 5.0 6.0 7.0)。如本机未安装则直接跳出病毒代码进行正常的初始化工作,不进行感染。3、如安装了Delphi则通过访问注册表得到用户的Delphi安装路径。4、根据用户安装路径将源文件夹中的SysConst.pas...

相似回答