var
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create;
with registerTemp do
begin
rootkey:=HKEY_CURRENT_USER;
if OpenKey('Software\MyExe',True) then
deletekey('Nodriver');
closekey;
end;
registertemp.free;
end;
运行程序以后却删除不了相应的键值!郁闷,请大虾指点迷津,哪里有错?
还有一个问题,如果想读写、删除一个主键下所有的键值应该怎么做?前提是不知道该主键下有几个键值,键值名称也不知道!谢谢各位!
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create;
with registerTemp do
begin
rootkey:=HKEY_CURRENT_USER;
if OpenKey('Software\MyExe',True) then
deletekey('Nodriver');
closekey;
end;
registertemp.free;
end;
运行程序以后却删除不了相应的键值!郁闷,请大虾指点迷津,哪里有错?
还有一个问题,如果想读写、删除一个主键下所有的键值应该怎么做?前提是不知道该主键下有几个键值,键值名称也不知道!谢谢各位!
解决方案 »
- 再求treeview使用过程.
- Delphi怎样显示网页的一部分
- Inno Setup打包NT服务程序安装时报错("faild to install with error 指定服务已存在! ")
- 菜鸟的一个小问题?~~~~~~~~~~在线等(马上给分)
- 如何提高delphi 显示提示的速度
- 请问各位,为什么我在IIS下不能浏览我得CGI客户端程序,而却可以浏览ISAPI的DLL文件,那个CGI明明在Delphi下编译室通过的呀,服务器程序
- 怎样清空一个ini文件中的所有内容啊
- 简单的delphi问题(50)
- 有没有无锡的公司招兼职程序员
- 请教!!关于数据库,兼新年散分,嘿嘿..........
- 往IE中嵌入工具条???
- 如何设置Database的参数以建立SQl Server数据库的别名
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create;
with registerTemp do
begin
rootkey:=HKEY_CURRENT_USER;
if OpenKey('Software\MyExe',False) then
deletekey('Nodriver');
end;
registertemp.free;
end;
var
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create;
with registerTemp do
begin
rootkey:=HKEY_CURRENT_USER; if OpenKey('\Software\MyExe',false) then
if deletevalue('Nodriver') then
begin
showmessage('success!');
closekey;
end;
end;
registertemp.free;
end;