hookkey_unit.pas

查找进程的好源码

unit HookKey_Unit;

interface

uses windows,messages;

const
  WM_HOOKKEY = WM_USER + $1000;

  procedure HookOn(SenderHandle:DWord); stdcall;
  procedure HookOff();  stdcall;
implementation
var
  HookDeTeclado     : HHook;
  Sender      : DWord;

function CallBackDelHook( Code    : Integer;
                          wParam  : WPARAM;
                          lParam  : LPARAM
                          )       : LRESULT; stdcall;

begin
  if code=HC_ACTION then
  begin
     PostMessage(Sender,WM_HOOKKEY,wParam,lParam);
  end;
  Result := CallNextHookEx(HookDeTeclado, Code, wParam, lParam)
end;

procedure HookOn(SenderHandle:DWord); stdcall;
begin
  Sender:=SenderHandle;
  HookDeTeclado:=SetWindowsHookEx(WH_KEYBOARD, CallBackDelHook, HInstance , 0);
end;

procedure HookOff();  stdcall;
begin
  UnhookWindowsHookEx(HookDeTeclado);
end;


end.