var reg:Tregistry;
begin
reg:=tregistry.Create ;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('software\microsoft\windows\currrentversion\',false);
if not reg.HasSubKeys then showmessage('not have');
reg.CloseKey;
reg.Free;
end;在CurrentVersion下面有很多子键,可是为什么提示没有呢?
更别说用 reg.GetKeyNames() 去读取了请问怎么回事,如何处理,谢谢
begin
reg:=tregistry.Create ;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('software\microsoft\windows\currrentversion\',false);
if not reg.HasSubKeys then showmessage('not have');
reg.CloseKey;
reg.Free;
end;在CurrentVersion下面有很多子键,可是为什么提示没有呢?
更别说用 reg.GetKeyNames() 去读取了请问怎么回事,如何处理,谢谢
解决方案 »
- 求 3*3 拼图算法,
- 有人做过录歌软件的开发么,想开发或者购买K8那样的录歌软件
- Delphi里Mediaplayer控件问题
- 那个打包软件好用呢?
- 如何获取当前系统的屏幕颜色模式: 是256 色,增强色(16位)还是真彩色(32位)??急急!!
- 如何把一个触发器的内容显示在Memo里?
- 怎么用SQL语句在Paradox表中筛选日期型字段?
- 教教我这菜鸟,在delphi下用什么函数来操作(读取、写进数值)某内存地址?
- FindWindow的用法!
- 怎样改变stringgrid的Cells[1,0]显示的字付窜对齐方式
- 关于DLEPHI7 中dbchart1执行两个adoquery1语句出错,报某字段找不到?
- 小白请教一个字符串操作问题
改为:
reg.OpenKey('software\microsoft\windows\currentversion\',false);你多了个r