ShellExecute(0,'open',PChar('tencent://message/?uin='+Edit1.Text+''),nil,nil,SW_SHOW);Edit1.text 内是 对方的 QQ 号码