屏蔽Win、Ctrl_ESC、Alt_Tab、Alt_F4等键(Windows XP、Windows 2003 Server下测试通过)

15468

　　unit   uHook;interfaceusesWindows,   Messages,   SysUtils,   Variants,   Classes,   Controls,   Forms,   Dialogs,   StdCtrls;   typetagKBDLLHOOKSTRUCT   =   packed   record   vkCode:   DWORD;scanCode:   DWORD;flags:   DWORD;time:   DWORD;dwExtraInfo:   DWORD;end;KBDLLHOOKSTRUCT= tagKBDLLHOOKSTRUCT;PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;const WH_KEYBOARD_LL = 13;const LLKHF_ALTDOWN = $20;function LowLevelKeyboardProc(nCode:Integer;WParam: WPARAM;LParam:LPARAM):LRESULT;stdcall;procedure hookstar;procedure hookend;varhhkLowLevelKybd:HHOOK;implementationfunction   LowLevelKeyboardProc(nCode:   Integer;WParam:   WPARAM;LParam:   LPARAM):LRESULT;   stdcall;varfEatKeystroke:   BOOL;   p:   PKBDLLHOOKSTRUCT;   beginResult:=0;fEatKeystroke:=FALSE;p:=PKBDLLHOOKSTRUCT(lParam);if (nCode=HC_ACTION) thenbegincase wParam ofWM_KEYDOWN,WM_SYSKEYDOWN,WM_KEYUP,WM_SYSKEYUP:fEatKeystroke:=((p.vkCode=VK_TAB) and ((p.flags and LLKHF_ALTDOWN)  0)) or((p.vkCode=VK_ESCAPE) and ((p.flags and LLKHF_ALTDOWN)  0))or(p.vkCode=VK_Lwin) or(p.vkCode=VK_Rwin) or(p.vkCode=VK_apps) or((p.vkCode=VK_ESCAPE) and ((GetKeyState(VK_CONTROL) and $8000)  0)) or((p.vkCode=VK_F4) and ((p.flags and LLKHF_ALTDOWN)  0)) or((p.vkCode=VK_SPACE) and ((p.flags and LLKHF_ALTDOWN)  0)) or(((p.vkCode=VK_CONTROL) and (P.vkCode = LLKHF_ALTDOWN and p.flags) and (P.vkCode=VK_Delete)))end;end;if fEatKeystroke=True thenResult:=1;if nCode  0 thenResult := CallNextHookEx(0,nCode,wParam,lParam);end;procedure HookStar;beginif hhkLowLevelKybd=0 thenhhkLowLevelKybd:=SetWindowsHookExW(WH_KEYBOARD_LL,LowLevelKeyboardProc, Hinstance,0);end;procedure HookEnd;beginif (hhkLowLevelKybd0) and UnhookWindowsHookEx(hhkLowLevelKybd) thenhhkLowLevelKybd:=0;end;end.