怎么用程序语言得到到QQ的安装目录？

读取注册表
Set ws = CreateObject("wscript.shell")
qqpath = ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\tencent\qq\Install")
这个比用API方便的多.

用vb
模块
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Dim lbuffer As Long, sbuffer As String, hkey As Long, ltype As Long

Public Function getvalue(svalue) As Long
rtn = RegOpenKeyEx(&H80000002, "Software\TENCENT\QQ", 0, &H20000 Or &H1& Or &H8