利用钩子如何屏蔽键盘呢?
//以下是拦截字母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);
function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;
begin
if (wParam = 65) then
wParam:=0;
Result := CallNextHookEx(hook, nCode, wParam, lParam);
end;