VB中如何删除注册表中某一个键?

来源:百度知道 编辑:UC知道 时间:2024/04/30 11:30:33
这个键下面有可能为空,也可能有键名键值,还有可能有下一级子键。
假设这个键为"HKEY_LOCAL_MACHINE\SOFTWARE\chenwb",请不要复制一大段来凑数,我也看不懂的。谢谢!
klose_:
我在XP、VB6迷你版中试,首先手动在注册表中添加了一个“abc”的项(在注册表左边),然后在VB6中写下这些代码,
Private Sub Command1_Click()
On Error Resume Next
Dim reg
Set reg = CreateObject("wscript.shell")
reg.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\abc"
End Sub
运行程序后,到注册表中去看,abc这项还在,并没被删除,不知道怎么回事

(楼上在弄什么,看不懂)
你说的一个键下面还有子键是什么意思?我好象没听过
vb代码:
Private Sub Form_Load()
On Error Resume Next
Dim reg
Set reg = CreateObject("wscript.shell")
reg.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\chenwb"
End Sub
在我的XP的VB6.0上试是OK的
注:
1、你删的是一个键(注册表中右边那一栏的),不是一个项(文件夹样的)
2、杀毒软件已被关,以防被禁止。你把代码中“On Error Resume Next”去掉,如果出错说明被禁止
3、若上两条失败,请另请高明...

新建工程,在Form1上放置两个标签,Caption属性分别为“姓名”和“公司”;两个文本框txtName和txtCompany,Text属性均设为空;三个命令按钮cmdSave、cmdFind和cmdDelete,Caption分别设为“保存”、“查看”和“删除”。

给三个命令按钮添加如下代码:

Private Sub cmdSave_Click()

′将两个文本框中的内容分别赋给MyApp下User区中Name和Company
SaveSetting 〃MyApp〃, 〃User〃, 〃Name〃, txtName
SaveSetting 〃MyApp〃, 〃User〃, 〃Company〃, txtCompany
MsgBox 〃您的信息已成功保存!〃

End Sub

Private Sub cmdFind_Click()

′查找MyApp下User区中Name和Company的设置值并显示
MsgBox 〃您的姓名是:〃 & GetSetting(〃MyApp〃, 〃User〃,
〃Name〃) & Chr(13) &