zoukankan      html  css  js  c++  java
  • Delphi如何获取QQ2010聊天窗口句柄?

    unit   HKProc; 
    
    interface 
    
    uses 
    Windows,   Messages,Dialogs,iniFiles,SysUtils; 
    
    var 
    hNextHookProc:   HHook; 
    procSaveExit:   Pointer; 
    
    function   CBTProc(iCode:   Integer;   wParam:   WPARAM;   lParam:   LPARAM):   LRESULT;   stdcall; 
    function   EnableHotKeyHook:   BOOL;   export; 
    function   DisableHotKeyHook:   BOOL;   export; 
    
    implementation 
    
    function   CBTProc(iCode:   Integer;   wParam:   WPARAM;   lParam:   LPARAM):   LRESULT;   stdcall; 
    var 
        p:   PCBTActivateStruct; 
    begin 
        result:=   0; 
        If   iCode <0   Then 
        begin 
            Result   :=   CallNextHookEx(hNextHookProc,   iCode,   wParam,   lParam); 
            Exit; 
        end 
        else 
        begin 
            If   iCode   =   HCBT_ACTIVATE   then 
            begin 
                p:=   PCBTActivateStruct(lParam); 
                if   (p.hWndActive   =   findwindow( '#32770 ',nil))   then   showmessage( 'lkjl '); 
            end; 
        end; 
    end; 
    
    
    function   EnableHotKeyHook:   BOOL;   export; 
    begin 
        Result   :=   False; 
        if   hNextHookProc   <>   0   then   Exit; 
        hNextHookProc   :=   SetWindowsHookEx(WH_CBT,CBTProc,HInstance,0); 
        Result   :=   hNextHookProc   <>   0; 
    end; 
    
    function   DisableHotKeyHook:   BOOL;   export; 
    begin 
        if   hNextHookProc   <>   0   then 
        begin 
            UnhookWindowshookEx(hNextHookProc);   
            hNextHookProc   :=   0; 
        end; 
        Result   :=   hNextHookProc   =   0; 
    end; 
    
    end. 
    If   iCode   =   HCBT_ACTIVATE   then 
    begin 
        p:=   PCBTActivateStruct(lParam); 
        p.hWndActive//就是激活窗口的句柄。findwindow( '#32770 ',nil)返回的是QQ聊天窗口的句柄                                 
    end;
    http://zhidao.baidu.com/question/168272170.html?fr=qrl&cid=868&index=1&fr2=query
  • 相关阅读:
    python库--pandas--DataFrame
    python库--pandas--Series
    python模块--collections(容器数据类型)
    Linux命令
    pycharm安装
    利用Anaconda进行python爬虫环境的配置-安装scrapy
    反射
    异常处理
    类的相关判断函数
    python random
  • 原文地址:https://www.cnblogs.com/sunsoft/p/1964946.html
Copyright © 2011-2022 走看看