不用DLL屏蔽键盘按键

【文件属性】：
文件名称：不用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