中华网通行证
用户名 密码

Delphi编程:QQ聊天记录怎样被记录下来(4)
中华网科技 http://tech.china.com 2005-07-25 10:37:44
进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号: 】【关闭窗口

  
//窗口消息处理过程

procedure TForm1.WndProc(var Msg: TMessage);

begin

with Msg do

begin

if Msg = WM_USERCMD then //DLL发来的自定义消息

begin

case wParam of

UC_WINCREATE : //QQ消息框创建

begin

GetText(Findhwd(HWND(lParam))); //得到QQ消息框里的文本

end;

end;

end;

end;

inherited;

end;

//通过wParam参数找到QQ窗口句柄

function TForm1.Findhwd(parent: HWND):HWND;

var

hwd,hBtn,hMemo:HWND;

begin

result := 0;


hwd:=findwindowex(parent,0,‘#32770‘,nil); //QQ次级窗口句柄QQ2003及以前版本没有此项.

if (hwd<>0) then

begin

hBtn := FindwindowEX(hwd,0,nil,‘回讯息(&R)‘); //可以以此来证明是收到的QQ消息框.

if (hBtn<>0) then

begin

hMemo := GetDlgItem(hwd,$00000380); //RichEdit的句柄,QQ消息就存在于此处.

if (hMemo<>0) then

result := hMemo;

end;

end;

end;

//得到指定句柄控件中的文本.

procedure TForm1.GetText(hwd: HWND);

var

Ret: LongInt;



QQText: PChar;
Buf: integer;

begin

GetMem(QQText,1024);

if (hwd<>0) then

begin

try

Ret := SendMessage(hwd, WM_GETTEXTLENGTH, 0, 0) + 1;

Buf := LongInt(QQText);

SendMessage(hwd, WM_GETTEXT, Min(Ret, 1024), Buf);

memo1.Lines.Add(QQText); //在Memo中显示文本

finally

FreeMem(QQText, 1024);

end;

end;

end;

首页 上页 | ...1| 2 | 3 | 4 | 下页 尾页  共 4

 

50款最具性价比数码相机/MP3推荐!
作者:黑客基地/佚名 来源: 

发表言论:
笔  名:
查看评论
﹣相关报道
Delphi编程技巧常见实例问答 (2005-06-10 14:13:57)
Delphi初学者参考 (2005-06-07 13:32:22)

﹣精彩回顾
·揭秘越南姑娘的“性契约”(组图)
·中国研制成功银河麒麟操作系统
·近处偷拍野狮性爱 野草丛中见柔情(图)
·难得一见“水下分娩”全程跟拍(组图)
·古代性器具及性惩罚工具(组图)
·揭密中外历史上乱伦的名人们(组图)
·探秘世界各地诡异的干尸新娘(组图)
·隋唐两个王朝的九大著名"绿帽子"(组图)
·另类的惨烈:螳螂血战壁虎谁更凶猛(图)
·一分钟平静死去 注射死刑全过程(图)

进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号: 】【关闭窗口


潮流·时尚
·市场上的天价手机全搜罗
·一周降幅最大手机导购
·FM调频收音功能手机选购
·索尼爱立信三新机曝光
·诺基亚N73音乐版精品赏
·热门便携笔记本搜索导购
·近期最新上市机型大盘点
·矩阵Matrix鼠标垫细评测
·19寸20寸22寸液晶该买谁
·近期几款热卖MP3大推荐
·四大即将退市经典MP3选购
·06年最火七大DC缺点曝光
·六百万像素超值机型推荐
·诺基亚推出随身小音箱
·LG直板巧克力KG99评测
·MOTO新机即将国内上市
·超低价蓝牙手机导购
·130万像素一样拍出好照片
·诺基亚两款蓝牙耳机新品
·索爱纯美折叠机Z558评测

软件下载
·豪杰大眼睛 V2.5
·Foxmail V6.5
·天网防火墙Athena
·极品五笔 V6.8
·PPS网络电视
·超级兔子魔法设置
中华网搜索
站内搜索
全网搜索




热门搜索
耳机 印刷 手机 拖鞋
减速机 钟表 成人用品
减肥 枸杞 T恤 升降机
心理 健康 彩票 招聘
礼品 旅游 猎头 培训

产品服务
·机会!机会不容错过
·中华商机,搜索创新
·准确快捷,搜你所搜
·¥来¥往,尽在中华邮
·中华搜索,贴心搜索




科技频道主编信箱