QQ自动发送+@好友功能+tencent://功能

1.取出全部标题

D2007版本

procedure TForm1.Button1Click(Sender: TObject);
var
hCurrentWindow:HWnd;
szText: array[0..254] of char;
szClassName: array[0..254] of char;
begin
ListBox1.Items.Clear;
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
GetClassName(hCurrentWindow, @szClassName, 255);
if (GetWindowText(hCurrentWindow, @szText, 255)>0) and
(String(szClassName)='TXGuiFoundation') and
(String(szText)<>'TXFloatingWnd') and
(String(szText)<>'TXMenuWindow') then
ListBox1.Items.Add(StrPas(@szText));
hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
end;

DXE10.2版本

procedure TForm1.Button1Click(Sender: TObject);
var
hCurrentWindow:HWnd;
szText: array[0..254] of WideChar;
szClassName:array[0..254] of WideChar;
begin
ListBox1.Items.Clear;
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
GetClassName(hCurrentWindow, @szClassName, SizeOf(szClassName));
if (GetWindowText(hCurrentWindow, @szText, SizeOf(szText))>0)
and (String(szClassName)='TXGuiFoundation')
and (String(szText)<>'TXFloatingWnd') and
(String(szText)<>'TXMenuWindow')
then
ListBox1.Items.Add(StrPas(szText));
hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
end;

========================QQ tencent:// 功能=======================================

增加好友
tencent://AddContact/?fromId=45&fromSubId=1&subcmd=all&uin=1543636781&website=www.oicqzone.com

打开好友对话窗口
tencent://Message/?Uin=1543636781&websiteName=www.oicqzone.com&Menu=yes
tencent://Message/?Menu=YES&Uin=1543636781&websiteName=im.qq.com
tencent://message/?Menu=yes&uin=1543636781
tencent://message/?&uin=1543636781

tencent://message/?Menu=yes&uin=1543636781&fuin=513187410

临时会话
tencent://Message/?Uin=1543636781&websiteName=qzone.qq.com&Menu=yes

打开群窗口(http://qun.qq.com/join.html生成群打开代码)
http://shang.qq.com/wpa/qunwpa?idkey=c3a6393707f0ef5c2ec729b8100d2d8f927c8938a4423db86f64a3c02a7ab0b3

CMD打开命令
start tencent://Message/?Uin=1543636781

未验证通过的：
tencent://groupwpa/?subcmd=all¶m=3b2024304edeb7e34e9e0774bf7c6ec54bac90336c6f2736f1dad41fd966783b
tencent://groupwpa/?subcmd=all¶m=58592705