procedure TFormButtonClick(Sender: TObject);
var
hParenthButtonhMemo: HWND;
begin
MemoSelectAll;//Memo内容全选
MemoCopyToClipboard;//把Memo中选中的语句拷贝到剪贴板中
try
//找发送消息的QQ窗口
hParent := FindWindow(nil 发送消息);
//然后找回话时用的编辑窗口Point函数用于返回一个TPoint类型变量
hMemo := ChildWindowFromPointEx(hParent Point( ) CWP_ALL);
//找到送讯息按钮的句柄
hButton := FindWindowEx(hParentnil送讯息(&S));
if (hParent = ) or (hMemo = ) or (hButton = ) then
MessageBox(Handle没有找到发送窗口请重试！错误MB_ICONWARNING)
else
begin
//向发送消息中的回话编辑框发送粘贴消息
SendMessage(hMemoWM_PASTE);
//向送讯息按钮送单击消息以模仿按键发送回话
SendMessage(hButtonBM_CLICK);
end;
except
//如果发生意外错误给出提示
MessageBox(Handle发送消息出错请重试！错误MB_ICONWARNING);
end;
end;
procedure TFormButtonClick(Sender: TObject);
var
hParenthButtonhMemo: HWND;
begin
MemoSelectAll;
MemoCopyToClipboard;//把Memo中选中的语句拷贝到剪贴板中
try
//找对话模式中窗口
hParent := FindWindow(nil 对话模式);
//找到对话模式中的回话编辑框
hMemo := ChildWindowFromPointEx(hParent Point( ) CWP_ALL);
hButton := FindWindowEx(hParentnil送讯息(&S));
//如果有任何一个句柄没有找到都不能完成发送并给出提示
if (hParent = ) or (hMemo = ) or (hButton = ) then
MessageBox(Handle没有找到发送窗口请重试！错误MB_ICONWARNING)
else
begin
//向对话模式中的回话编辑框发送粘贴消息
SendMessage(hMemoWM_PASTE);
//向送讯息按钮送单击消息以模仿按键发送回话
SendMessage(hButtonBM_CLICK);
end;
except
//如果发生意外错误给出提示
MessageBox(Handle发送消息出错请重试！错误MB_ICONWARNING);
end;
end;
end
