对qq感兴趣的这里看？

我的想找qq 与某人聊天的句柄：程序如下
procedure TForm1.BtnTestClick(Sender: TObject);
var
    qq0, qq1, qq2, qqrich, hsend: hwnd;begin
    qq0 := FindWindowEx(qqhwnd, 0, '#32770', 0);//qqhwnd 为对话窗体的句柄
    qq1 := FindWindowEx(qq0, 0, 'AfxWnd42', 0);
    qq2 := FindWindowEx(qq1, 0, 'RICHEDIT', 0);
    hSend := FindWindowEx(qq0, 0, 0, '发送(&S)');
    Memo1.Lines.Add('主窗体:  ' + inttohex(qq0, 8));
    Memo1.Lines.Add('AfxWnd42: ' + inttohex(qq1, 8));
    Memo1.Lines.Add('RICHEDIT: ' + inttohex(qq2, 8));
    j := sendmessageA(qq2, WM_SETTEXT, 0, integer(pchar('text')));
    Memo1.Lines.Add('粘贴 length: ' + inttostr(j));
    sendmessage(hSend, BM_CLICK, 0, 0); //点击发送按钮
    Memo1.Lines.Add('发送 句柄: ' + inttohex(qqbt(1), 8));end; qqwnd,qq0,qq1,qq2,hsend 的句柄和用spy＋＋ 找到的句柄一样，为啥信息不能发给qq2？
sendmessageA(qq2, WM_SETTEXT, 0, integer(pchar('text'))); //发送不成功啊
不知道这是为啥啊 ？那位做过 指点一下啊 多谢!是不是WM_SETTEXT 和WM_PASTE 对qq无效呢？