好用的键盘和鼠标钩子回调函数

function MouseProc(nCode: integer; wParam: WParam; lParam: LParam): LRESULT; stdcall;
begin
  Result := 0;
  if nCode < 0 then
    Result := CallNextHookEx(MHookHandle, nCode, wParam, lParam)
  else                                            
  begin
    //Rule of API call, which referred to Win32 Hooks topic in MSDN
    case wParam of    //鼠标左键或右键单击
      WM_LBUTTONUP, WM_NCLBUTTONUP, WM_RBUTTONUP:
        SendMessage(pSharedMem^.InstHandle, pSharedMem^.MessageID, 0, 500);
      WM_MOUSEMOVE:
      begin
        if FIsNew = False then
          SendMessage(pSharedMem^.InstHandle, pSharedMem^.MessageID, 0, 500);
      end;  
    //Sends Message to Instance to which was injected this DLL
    end;    // case
  end;end;
function KeyboardProc(nCode: Integer; WPARAM: wParam; LPARAM: lParam): LRESULT; stdcall;
var
  i: Integer;
  nState: SHORT;//得到键盘状态的GetKeyState函数的返回值。这是一个16位的数。
begin
  Result := 0;
  if nCode < 0 then
    Result := CallNextHookEx(KHookHandle, nCode, wParam, lParam)
  else
  begin
    if (nCode = HC_ACTION) and (((lParam shr 30) and $F) = 0) then
    begin
      for I := 0 to 1 do begin    // Iterate
        nState := GetKeyState(G_KeyValArr .ModKey);//
        if (nState and $80000000) = $80000000 then
        begin
          if (WPARAM = Ord(G_KeyValArr.key)) then
          begin
            if i = 0 then    
              SendMessage(pSharedMem^.InstHandle, pSharedMem^.MessageID, 1, WPARAM)
            else if i = 1 then      
              SendMessage(pSharedMem^.InstHandle, pSharedMem^.MessageID, 2, WPARAM);
            FLastStuTime := GetTickCount;
            Break;
          end
          else   
          begin
            if (GetTickCount - FLastStuTime) > 1000 then
              SendMessage(pSharedMem^.InstHandle, pSharedMem^.MessageID, 3, WPARAM);
          end;
        end;
      end;
    end
    else  
    begin
      if (GetTickCount - FLastStuTime) > 1000 then
        SendMessage(pSharedMem^.InstHandle, pSharedMem^.MessageID, 3, WPARAM);
    end;
    Result := CallNextHookEx(KHookHandle, nCode, wParam, lParam);
  end;end;
  • 0
    点赞
  • 0
    收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值