利用钩子怎么屏蔽键盘呢

利用钩子如何屏蔽键盘呢？
//以下是拦截字母a，只要按下a健就会发出声音的程序。以下程序如何修改才能使屏蔽掉‘a’键呢？也就是按下a健没有任何反应。

{$R *.dfm}

var

  hook: HHOOK; //定义一个钩子句柄


{实现键盘钩子回调函数}

function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;

begin

  if (wParam = 65) then 

Beep; //每拦截到字母 a 会发出声音

  Result := CallNextHookEx(hook, nCode, wParam, lParam);

end;


//窗体创建事件代码：

hook:=SetWindowsHookEx(WH_KEYBOARD,@KeyHook,0,GetCurrentThreadID);


//窗体退出事件代码：

UnhookWindowsHookEx(hook);

 
------解决方案--------------------
如果啥也不干就把wprarm置为0

function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;

begin

  if (wParam = 65) then 

      wParam:=0;

  Result := CallNextHookEx(hook, nCode, wParam, lParam);

end;