盒子论坛 v2.1

这段代码的本意是通过这个自动发送消息，可是不知道为什么！粘贴板上的东西就是粘贴不到QQ的memo中，好象sendmessage(hMemo,wM_PASTE,0,0);没有起到作用似的！大家帮忙解决一下！谢谢了，
procedure TForm1.Button1Click(Sender: TObject);
var
hParent,hButton,hMemo:HWND;
begin
text1.SelectAll;
text1.CopyToClipboard;
try
hParent:=FindWindow(nil,'发送消息');
hMemo:=ChildWindowFromPointEx(hParent, Point(50, 100),CWP_ALL);
hbutton:=FindWindowEx(hparent,0,nil,'送讯息(&S)');
if (hParent=0)or(hMemo=0)or(hButton=0)then begin
messagebox(Handle,'没有找到QQ“发送消息”窗口！','错误',MB_ICONWARNING);
end
else
begin
sendmessage(hMemo,wM_PASTE,0,0);
sendmessage(hButton,BM_CLICK,0,0);
end;
except
showmessage('发送出错，请重试！')
end;
end;
----------------------------------------------
我不懂就发帖子！大家帮我哦！

作者：

fan (孤独求爱)	★☆☆☆☆	-
	盒子活跃会员

2003/5/5 23:27:35

1楼：

有人帮看一下吗？
----------------------------------------------
我不懂就发帖子！大家帮我哦！

信息

登陆以后才能回复