当前页面位置: » 丰搜网 » 文档中心 » 详细内容
qq聊天记录器演示程序(二)
基于上篇《qq聊天记录器演示程序(一)》,此文将讲述如何捕获自己发送出去的消息:
// hottey 于2004-6-2号
qq从本机发出消息无非就是两种方式.(1)按发送按钮,(2)按ctrl+enter组合键.当然自定义键除外.也不在本文考虑范围之内:
基于这两种发送的方式我选用:wh_callwndproc 和 wh_keyboard两种钩子.sorry,今天心情太烂(学校里的一些琐事,郁闷).实在无心继续.只能贴上源码了.大家有兴趣自己看看...有什么问题可以和我联系.delphi21@163.com
| //监控ctrl+enter组合键
function keyboardproc(icode: integer; wparam: wparam; lparam: lparam): lresult; stdcall;
begin
if (wparam = vk_return) and (getkeystate(vk_control) < 0) and (lparam >= 0) then
begin
sendmessage(shared^.mainwnd,wm_usercmd, uc_windestroy, getforegroundwindow);
end;
result := callnexthookex(shared^.keyhook,icode,wparam,lparam);
end; //监控"发送"按钮
function callwndproc(icode: integer; wparam: wparam; lparam: lparam): lresult; stdcall;
type
msg = ^cwpstruct;
var
p : msg;
begin
p := msg(lparam);
//只对前台窗口进行处理
if (p^.message = wm_command) and (loword(p^.wparam) = 1) then
begin
sendmessage(shared^.mainwnd,wm_usercmd, uc_windestroy, getforegroundwindow);
end;
result := callnexthookex(shared^.callhook,icode,wparam,lparam);
end; |
演示程序相关代码:
| procedure tform1.wndproc(var msg: tmessage);
begin
with msg do
begin
if msg = wm_usercmd then
begin
case wparam of
uc_windestroy:
begin
gettext(findhwd(hwnd(lparam)));
end;
end;
end;
end;
inherited;
end; |
