DELPHI实现键盘勾子

 

 1 //调用键盘钩子，屏蔽功能键
 2  function keyHookProc(nCode: Integer; LWParam: WPARAM; LLParam: LPARAM): LRESULT;  stdcall; 
 3   
 4  var
 5   hHk :HHOOK;
 6   
 7 //创建勾子
 8 hHk:= SetWindowsHookEx( 13, @keyHookProc, HInstance,  0);
 9 
10  function keyHookProc(nCode: Integer; LWParam: WPARAM; LLParam: LPARAM): LRESULT;//调用键盘钩子，屏蔽功能键
11  var
12   p: PKBDLLHOOKSTRUCT;
13   y: integer;
14  begin
15     if nCode <  0  then
16    begin
17     Result:= CallNextHookEx(hHk, nCode, LWParam, LLParam);
18     Exit;
19    end
20    else
21    begin
22     y :=  0;
23      case LWParam  of
24       WM_KEYDOWN, WM_SYSKEYDOWN, WM_KEYUP,WM_SYSKEYUP:
25        begin
26         p:= PKBDLLHOOKSTRUCT(LLParam);
27          if p^.vkCode = VK_LWIN  then y:=  1
28          else  if p^.vkCode = VK_RWIN  then y:=  1
29          else  if (p.vkCode = VK_RETURN)  and ((p.flags  and (KF_ALTDOWN  shr  8)) <>  0)
30            and ((GetKeyState(VK_CONTROL)  and $ 8000) <>  0)  then y:=  1
31          else  if (p.vkCode = VK_ESCAPE)  and ((GetKeyState(VK_CONTROL)  and $ 8000) <>  0)  then y:=  1
32          else  if (p.vkCode = VK_ESCAPE)  and ((GetKeyState(VK_MENU)  and $ 8000) <>  0)  then y:=  1
33          else  if (p.vkCode =  192)  and ((GetKeyState(VK_CONTROL)  and $ 8000) <>  0)  then y:=  1
34          else  if (p.vkCode = VK_TAB)  and ((GetKeyState(VK_MENU)  and $ 8000) <>  0)  then y:=  1;
35        end;
36      end;
37      if y= 1  then
38     Result:= 1 //如果为WIN功能键则屏蔽
39      else
40     Result:= CallNextHookEx(hHk, nCode, LWParam, LLParam); //其他键放下一个钩子
41    end
42  end;
43 
44 
45 //卸载勾子
46 UnHookWindowsHookEx(hHk);

 

转载于:https://www.cnblogs.com/whisht/archive/2011/11/16/2251797.html