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;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
