UC知道VB怎么查看注册表的某一样？？
来源：百度知道 编辑：UC知道 时间：2024/05/25 14:26:15
我知道冲路径打开
Private Sub Command1_Click()
Set Reg = CreateObject("Wscript.Shell")
s = Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
Shell s & "QQ.exe"
End Sub
这可以从路径打开。。
但是我想先查看QQ的注册表路径，如果没有则提示没有安装QQ，该怎么做？
Private Sub Command1_Click()
Set Reg = CreateObject("Wscript.Shell")
s = Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
Shell s & "QQ.exe"
End Sub
这可以从路径打开。。
但是我想先查看QQ的注册表路径，如果没有则提示没有安装QQ，该怎么做？
如果注册表读取不到这个注册表的键值,是会出错的,所以设置当出错时,提示没有安装QQ就行了..
Private Sub Command1_Click()
On Error GoTo err
Set Reg = CreateObject("Wscript.Shell")
s = Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
Shell s & "QQ.exe"
Exit Sub
err:
MsgBox "你好象没有安装QQ呀!"
End Sub
if GetString(HKEY_LOCAL_MACHINE, "SOFTWARE\Tencent\QQ\", Install) <> "" then
msgbox "QQ安装在" & GetString(HKEY_LOCAL_MACHINE, "SOFTWARE\Tencent\QQ\", Install)
else
msgbox "你好像没有安装QQ啊"
endif
用函数的优点是不用错误处理 只要判断是否返回值为空就可以
再一次帖出这个注册表操作通用函数 如果楼主用到就用 用不到就算了~~~
我已经怕了RegQueryValue了
'==================================================
'注册表操作声明
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubK