如何探测电脑中有没有安装ＱＱ，仅当ＱＱ没有运行时<已经解决>

icecept

当qq没有运行时，如何探测电脑中有没有安装ＱＱ？
当qq已经运行时，我是这样做到的： shell "tencent://Message/?Uin=543375508"

[ 本帖最后由 icecept 于 2009-4-30 11:23 编辑 ]

wannianchong

没有运行的话。。

1 查控制面板的 添加删除程序列表

2 搜QQ.exe（不一定准确。。）

具体怎么实现就要请高手来了。。。

炉子

HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ

wannianchong

原帖由 炉子 于 2007-8-27 23:11 发表
HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ

不错的想法，不知道卸载ＱＱ后这些东西会删除吗？

炉子

去检查那里边的Install项所指向的文件存在与否就可以

superzmy

没安装的qq？照样能用

lyjun_311

Private Sub Command1_Click()
    if getQQpath="" then msgbox "没有装qq" else msgbox "你已经装了qq了"
End Sub

Public Function getQQpath() As String
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")

    getQQpath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
End Function
如果是简单的判断 这样就可以了!

icecept

魔灵谢谢lyjun_311 了

cuiwei12

学习学习。

yangyxd

简单就是最好的， 7楼的回复不错，学习ing