• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

Delphi中利用钩子实现QQ聊天窗口的修改_Delphi

Delphi 搞代码 3年前 (2018-08-09) 183次浏览 已收录 0个评论

  有人曾为公司不让用QQ、MSN等聊天工具而烦恼吗?看了下面的小程序你就会打消这种看法了。

  当初公司做校园一卡通的项目时,里面的机房客户端需要用到系统的低级键盘钩子WH_KEYBOARD_LL,这也是我第一次接触到Windows中的Hook,因为WH_KEYBOARD_LL和其他钩子不一样,在Delphi的Windows帮助以及windows.pas文件中都没有定义,但microsoft的msdn中确有WH_KEYBOARD_LL的介绍,所以一路解决后就对Windows的系统钩子产生了兴趣。之后相继做过鼠标钩子WH_MOUSE、低级鼠标钩子WH_MOUSE_LL以及消息钩子WH_GETMESSAGE的小例子,都很有意思。

  这次我用到的是另外一个系统钩子:WH_CBT。

  看了delphi中的帮助,发现CBTProc中有很多功能:

HCBT_ACTIVATE
HCBT_CREATEWND

http://www.gaodaima.com/?p=66095Delphi中利用钩子实现QQ聊天窗口的修改_Delphi

HCBT_DESTROYWND
HCBT_MINMAX
HCBT_MOVESIZE
HCBT_SETFOCUS
HCBT_SYSCOMMAND

  (具体就不介绍了,看看帮助里写的很清楚)

  随后便开始试验起来,最终完成了这个小程序。下面我简单介绍一下:

  运行程序后自动隐藏,当你提取QQ或者MSN的消息时会惊奇的发现聊天窗口的那个讨厌的“与XX聊天”的标题没有了,而标题换成了“我的文档”。这时如果你再将此聊天窗口的图标换成文档样式的图标,那么谁还能看出那就是你的聊天窗口呢?(更换图标的方法也很多,可以用程序,也可以用软件直接修改QQ的资源文件,这部分我没有做,这里只是提供大家一个思路,有兴趣的朋友可以自己尝试一下,呵呵)。

  下面将代码帖出:

library HookPrj;

uses
 SysUtils,
 Classes,
 QQTitleHook in ’QQTitleHook.pas’;

 exports
EnableWheelHook, DisableWheelHook;

begin
 hkQQChat:= 0;
end.
==========================================================
unit QQTitleHook;

interface

uses
 Windows, Messages, SysUtils, Dialogs, CommCtrl, StrUtils;

var
 hkQQChat: HHOOK;
 //聊天窗口的句柄
 hwQQChat: HWnd ;
 //聊天窗口的标题
 tlQQChat: string;
 //窗口类名
 clsName: string;
 buf: array [0..1024] of char;

 const
  //QQ聊天窗口的类名
  csQQ = ’#32770’;

 function TitleHookProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
 function EnumWindowsTitleFunc(Handle: THandle; lParam: LPARAM): boolean ; stdcall;
 function EnableWheelHook : Boolean; stdcall; export;
 function DisableWheelHook: Boolean; stdcall; export;

 implementation
 
 //钩子的处理函数
 function TitleHookProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
 begin
  Result:= 0;
  if Code<0 then
  begin
   Result:= CallNextHookEx(hkQQChat, Code, wParam, lParam);
   Exit;
  end
  else
   if Code = HCBT_ACTIVATE then
   begin
    //获取激活窗口的句柄,以及窗口类名,然后判断此窗口类名是否为#32770。
    hwQQChat:= HWND(wParam);
    GetClassName(hwQQChat, buf, 1024);
    clsName:= string(buf);
    if clsName = csQQ then
    begin
     //如果窗口类名是#32770,则遍枚举所有窗口,并将窗口句柄传入
     //【这里仅仅做演示用,因为Windows中很多窗口的类名均为#32770,所以这样判断效率会很底,】
     //【有兴趣的朋友可以根据QQ聊天窗口的特性来增加判断条件,从而提高效率。】
     EnumWindows(@EnumWindowsTitleFunc, hwQQChat);
    end;
   end;
  end;

 function EnumWindowsTitleFunc(Handle: THandle; lParam: LPARAM): boolean ; stdcall;
 begin
  if (Handle = lParam) and boolean(GetWindowText(Handle, buf, 256)) then
  begin
   //根据窗口句柄获得窗口标题
   tlQQChat:= string(buf);
   //然后判断标题中是否包含“与…聊天”等相关字符,如果包括则此窗口为QQ聊天窗口
   if ((pos(’与’, tlQQChat)>0) and (pos(’聊天中’, tlQQChat)>0)) then
   begin
    //确定为聊天窗口后遍修改窗口标题。
    tlQQChat := AnsiReplaceStr(tlQQChat, ’与’ , ’我的文档’);
    tlQQChat := AnsiReplaceStr(tlQQChat, ’聊天中’, ’’ );
    SetWindowText(Handle, pchar(tlQQChat));
   end;
   //【同上,这个地方大家可以自由控制,不仅仅局限在QQ、MSN等聊天窗口。】
   //【而且想要将标题改成什么也可以自由控制,如果能根据修改后的窗口图标来确定标题】
   //【比如通过修改将窗口图标替换成Delphi的图标,然后标题修改为Delphi7,谁还能看出破绽呢?哈哈】
   if ((pos(’群 -’, tlQQChat)>0) or (pos(’高级群 -’, tlQQChat)>0)) then
   begin
    tlQQChat := AnsiReplaceStr(tlQQChat, ’群 -’, ’我的文档’);
    tlQQChat := AnsiReplaceStr(tlQQChat, ’高级’ , ’’ );
    SetWindowText(Handle, pchar(tlQQChat));
   end;
   //MSN
   if pos(’ – 对话’, tlQQChat)>0 then
   begin
    tlQQChat := AnsiReplaceStr(tlQQChat, ’ – 对话’ , ’我的文档’);
    SetWindowText(Handle, pchar(tlQQChat));
   end;
  end;
  Result :=True;
 end;

 //启动钩子
 function EnableWheelHook: Boolean; stdcall; export;
 begin
  if hkQQChat=0 then
  begin
   hkQQChat := SetWindowsHookEx(WH_CBT, @TitleHookProc, Hinstance, 0);
   Result := True;
  end
  else
   Result := False;
  end;

  //卸载钩子
  function DisableWheelHook: Boolean; stdcall; export;
  begin
   if hkQQChat<>0 then
   begin
    UnHookWindowsHookEx(hkQQChat);
    hkQQChat := 0;
    Result := True;
   end
   else
    Result := False;
   end;

  end.
====================================

  调用的应用程序就很简单了,调用EnableWheelHook后隐藏就可以了,退出时DisableWheelHook就OK啦。

  程序仅仅提供大家一个思路,还有很多不完善的地方,希望有兴趣的朋友联系我,共同交流提高。 

欢迎大家阅读《Delphi中利用钩子实现QQ聊天窗口的修改_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址