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&param=3b2024304edeb7e34e9e0774bf7c6ec54bac90336c6f2736f1dad41fd966783b
tencent://groupwpa/?subcmd=all&param=58592705