如何用VB删除注册表项

Question

如题所述

Answer 1

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

请问如何用VB删除注册表项， 我用的是模块来操作注册表的：

DeleteKey HKEY_CURRENT_USER, "Sofare\Microsoft\Windows\CurrentVersion\Run"

但是始终不能起到删除项的效果，是不是DeleteKey不能删除有键值的项呢？那么我应该怎样写代码才能删除这些有内容的项。

请您贴出详细的代码，谢谢。

解析:

新建工程，在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) ＆ Chr(10) ＆ 〃您的公司是：〃

＆ GetSetting(〃MyApp〃, 〃User〃, 〃Company〃)

End Sub

Private Sub cmdDelete_Click()

′删除MyApp下的User区域及其下的所有注册表项

DeleteSetting 〃MyApp〃, 〃User〃

End Sub

运行程序，在窗口中输入姓名和公司名称，之后按“保存”按钮，然后再按“查找”，可以看到显示出了正确的结果，说明保存和查找操作都已正常进行。如果在保存之前或删除之后按“查找”按钮，则出现对话框，说明要找的注册表项不存在。