利用钩子如何屏蔽键盘呢？
//以下是拦截字母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;