unithookdll.pas

全局快捷键的示例 采用EnumWindows使进程唯一,设置全局快捷键

unit UnitHookDll;

interface

uses
  Windows,Messages, SysUtils;

var
  hNextHook :THandle;
  procSaveExit :Pointer;

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

implementation


function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export;
var
  ilParam :integer;
begin
  //Result := 0;
  //If iCode < 0 Then Result := CallNextHookEx(hNextHook, iCode, wParam, lParam);
  ilParam :=0;
  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
        //