无法从注册表中删除我添加的键值?(内详) 你应该使用Registry.DeleteValue('Software\Microsoft\Windows\CurrentVersion\Run\Guard') 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 写错了 Registry:=TRegistry.Create; Registry.RootKey:=HKEY_LOCAL_MACHINE; try if Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\R un') then MessageDlg('打开成功!', mtInformation,[mbOk], 0) else MessageDlg('打开失败!', mtError,[mbOk], 0); if Registry.DeleteValue('Guard') then MessageDlg('成功!', mtInformation,[mbOk], 0) else MessageDlg('失败!', mtError,[mbOk], 0); Registry.CloseKey; finally Registry.Free; end; 删除值或数据用 deletevalue删除项用 deletekey,对于win95,用deletekey 将把该项及它的子项和值都删除,对应WINNT必须把子项和值都删除后才能删除项 如何把guid发散(或收敛)为32位(或64位)int 请教斑竹:SQL参数的问题? 如何使用QReport的Detail中打印指定行数的记录??即在指定的页面上填充相关数据。 关于日期比较 谁用过Install Shield for Delphi?一个关于目录的问题? 动态数组超过下限,为什么我的try...except...不能截获? 想学API hook的请看 几个关于Delphi内创建和使用控件的问题,一起问了吧 Delphi数据库的问题? 要分的人请看 有关InstallShield for delphi 低级问题:怎么用一个Button来打开自己做的新窗口
Registry.RootKey:=HKEY_LOCAL_MACHINE;
try
if Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\R
un') then
MessageDlg('打开成功!', mtInformation,[mbOk], 0)
else
MessageDlg('打开失败!', mtError,[mbOk], 0);
if Registry.DeleteValue('Guard') then
MessageDlg('成功!', mtInformation,[mbOk], 0)
else
MessageDlg('失败!', mtError,[mbOk], 0);
Registry.CloseKey;
finally
Registry.Free;
end;
删除项用 deletekey,对于win95,用deletekey
将把该项及它的子项和值都删除,对应WINNT
必须把子项和值都删除后才能删除项