CrLf

如果是正常安装的官方版本，可以试试这个：

for /f "tokens=1* delims==" %%a in ('ftype Tencent') do echo %%~dpbQQ.exe
复制代码

实测 QQ7.1 有效，不确定是否通用于 TM、QQ国际版或其他版本 QQ

CrLf

回复 4# ygqiang


vbs 原理一样：

Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set WS = CreateObject("Wscript.Shell")

Tencent = WS.RegRead("HKEY_CLASSES_ROOT\Tencent\shell\open\command\")
QQ = Replace(Tencent,"""","")
QQ = fso.GetFolder(QQ&"\..")&"\QQ.exe"

MsgBox QQ
复制代码

CrLf

回复 13# zz100001


    补充一下，QQ 和 TM 都支持命令行参数，例如：

"C:\Program Files\Tencent\TM\Bin\TM.exe" /uin:10000
复制代码