中科新闻网琼州海峡在哪里:vb写程序
来源：百度文库 编辑：中科新闻网 时间：2024/05/10 15:34:47
请哪位神仙哥哥姐姐帮忙看看这段vb的源代码，能不能不调用注册表是它具有同样的功能。谢谢了！
Private Sub Command1_Click()
Dim hKey As Long
RegCreateKey HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey
Dim L As Long
L = 1
RegSetValueEx hKey, "notraycontextmenu", 0, REG_DWORD, L, 4
MsgBox "已禁止使用任务栏中的右键快捷菜单! 请重新启动计算机，试用任务栏中的右键快捷菜单。"
RegCloseKey hKey
End Sub
Private Sub Command1_Click()
Dim hKey As Long
RegCreateKey HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey
Dim L As Long
L = 1
RegSetValueEx hKey, "notraycontextmenu", 0, REG_DWORD, L, 4
MsgBox "已禁止使用任务栏中的右键快捷菜单! 请重新启动计算机，试用任务栏中的右键快捷菜单。"
RegCloseKey hKey
End Sub
VB不使用API函数也可以访问注册表，不过能够访问的位置是固定的。
上面这段代码是用来禁止任务栏右键菜单，就必须使用API函数来修改注册表达到目的。
RegCreateKey 是用来建立注册中的项，并将引用返回到hKey，如果该项已经存在，则直接把引用返回到hKey.
RegSetValueEx 则是向注册表附值。
RegCloseKey 是关闭访问。
没有办法