熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

如何用Delphi寫一個聊天輔助程序

2013-11-23 17:42:16  來源: Delphi編程 

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


From:http://tw.wingwit.com/Article/program/Delphi/201311/24922.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.