不用DLL屏蔽键盘按键

时间:2013-06-19 07:15:08
【文件属性】:

文件名称:不用DLL屏蔽键盘按键

文件大小:4KB

文件格式:RAR

更新时间:2013-06-19 07:15:08

屏蔽ESC 屏蔽TAB 屏蔽键盘按键

function keyHookProc(nCode: Integer;WParam: WPARAM;LParam: LPARAM): LRESULT;stdcall; //调用键盘钩子,屏蔽功能键 var p: PKBDLLHOOKSTRUCT; y: integer; begin if nCode<0 then Result:= CallNextHookEx(hHk,nCode,WParam,LParam) else begin y := 0; case WParam of WM_KEYDOWN,WM_SYSKEYDOWN: //按键后判断所按键 begin p:=PKBDLLHOOKSTRUCT(Lparam); if p^.vkCode = VK_TAB then y := 1; if p^.vkCode = VK_ESCAPE then y := 1; end; WM_KEYUP,WM_SYSKEYUP: //松开按键后判断所按键 begin p:=PKBDLLHOOKSTRUCT(Lparam); if p^.vkCode = VK_TAB then y := 1; if p^.vkCode = VK_ESCAPE then y := 1; end; end; if y=1 then Result:=1 //如果为功能键则屏蔽 else Result:= CallNextHookEx(hHk,nCode,WParam,LParam); //其他键放下一个钩子 end end;


【文件预览】:
Unit1.dcu
Unit1.dfm
Project2.dpr
Unit1.pas

网友评论

  • 很不错,可以,学习了,好好研究研究
  • 用着还可以,不错,赞一个
  • 简单了点,谢谢分享~。。。