求vb获取qq2009安装路径的代码

[dw2lg88]

qq2008可以通过读取注册表的HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ\Install键值来获得它的安装目录
但是qq2009就不行。
求通过shellapi来获取qq2009安装路径的vb代码。如果能用，我会加分。

[goosen]

http://www.huarw.com/program/bbs/VB/200201/597853.html
http://topic.csdn.net/t/20020719/11/886226.html

[lyserver]

还可以通过查询桌面或应用程序的快捷方式的目标路径来实现，至于查询快捷方式的目标路径，需要从http://www.vbaccelerator.com/home/VB/Type_Libraries/ShellLink/ShellLink_Type_Library.asp下载一个TLB文件。

[simon__sun]

注册表里应该还是能找到路径的，我觉得uninstall里可能就能查到
你可以在注册表里搜一下qq.exe 看看那个键下面是有路径的，你程序就读取这个键值就可以了啊！~

[northwolves]

Sub GetQQ2009Path()
MsgBox "QQ2009安装路径：" & CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009\Install") & "\Bin\"
End Sub

[嗷嗷叫的老马]

哈.

路过......

[东方之珠]

注册表中反安装程序中去找。
比如：qq2009安装在注册表中下列位置HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{052CFB79-9D62-42E3-8A15-DE66C2C97C3E}
其中：InstallLocation键值为 D:\Tencent\QQ2009\（这是安装路径）
UninstallString键值为 MsiExec.exe /X{052CFB79-9D62-42E3-8A15-DE66C2C97C3E}（这个是卸载程序）

[Alco2007]

如果程序在运行可以用GetModuleFileNameExA来获取

[arthur24]

HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009\Install

[我是一道光_]

不会~ 顶起，jf