unithookdll.pas.~67~

来自「全局快捷键的示例 采用EnumWindows使进程唯一,设置全局快捷键」· ~67~ 代码 · 共 46 行

unit UnitHookDll;

interface

uses
  Windows,Messages, Dialogs, SysUtils, Classes;

var
  hNextHook :HHook;
  procSaveExit :Pointer;
  ilParam :integer;

  function StartHook : BOOL; stdcall;
  function StopHook : BOOL; stdcall;
  procedure CheckExit; far;

implementation


function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export;
begin
  //Result := 0;
  //If iCode < 0 Then Result := CallNextHookEx(hNextHook, iCode, wParam, lParam);

  case wparam of
    WM_LBUTTONDOWN:
      begin
      end;
    WM_LBUTTONUP:
      begin
      end;
    WM_LBUTTONDBLCLK:
      begin
      end;
    WM_RBUTTONDOWN:
      begin
      end;
    WM_RBUTTONUP:
      begin
      end;
    WM_RBUTTONDBLCLK:
      begin
      end;
    WM_MBUTTONDOWN:
      begin
        //