如何用程序实现锁定键盘，而不锁定鼠标 ( 积分: 100 )

如何用程序实现锁定键盘，而不锁定鼠标

procedure&nbsp;TForm1.btn1Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;KHK:&nbsp;&nbsp;&nbsp;HHook;<br>&nbsp;&nbsp;tmp:&nbsp;&nbsp;&nbsp;integer;<br>&nbsp;&nbsp;function&nbsp;&nbsp;&nbsp;HookProc(ICode:&nbsp;&nbsp;&nbsp;integer;WP:WParam;LP:LParam):LResult;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result:=CallNextHookEx(KHK,0,0,0);&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;end;<br>begin<br>&nbsp;&nbsp;KHK:=SetWindowsHookex(WH_JOURNALPLAYBACK,@HookProc,HInstance,0);<br>&nbsp;&nbsp;//UnHookWindowsHookEx(KHK);<br>&nbsp;&nbsp;SystemParametersInfo(SPI_SCREENSAVERRUNNING,&nbsp;&nbsp;&nbsp;1,&nbsp;&nbsp;&nbsp;@tmp,&nbsp;&nbsp;&nbsp;0);//锁起来&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;SystemParametersInfo(SPI_SCREENSAVERRUNNING,&nbsp;&nbsp;&nbsp;0,&nbsp;&nbsp;&nbsp;@tmp,&nbsp;&nbsp;&nbsp;0);//打开吧<br>end;<br><br>end.<br>这样可以锁定&nbsp;，但鼠标也锁定了，哪位大侠给修改下<br>雪地裸体腾空翻转720度谢谢了

一个简单的键盘钩子<br>library&nbsp;project1;<br><br>uses<br>&nbsp;&nbsp;Windows;<br><br>var<br>&nbsp;&nbsp;hHk&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;HHOOK;<br><br>{$R&nbsp;*.res}<br>function&nbsp;keyHookProc(nCode:&nbsp;Integer;&nbsp;WParam:&nbsp;WPARAM;&nbsp;LParam:&nbsp;LPARAM):&nbsp;LRESULT;&nbsp;stdcall;<br>begin<br>&nbsp;&nbsp;Result&nbsp;:=&nbsp;1;<br>&nbsp;//if&nbsp;nCode&nbsp;&lt;&nbsp;0&nbsp;then<br>&nbsp;//&nbsp;CallNextHookEx(hHk,nCode,WParam,LParam);<br>end;<br><br>function&nbsp;EnableHook:&nbsp;Boolean;&nbsp;stdcall;&nbsp;export;<br>begin<br>&nbsp;&nbsp;if&nbsp;hHk&nbsp;=&nbsp;0&nbsp;then<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;hHk&nbsp;&nbsp;&nbsp;&nbsp;:=&nbsp;SetWindowsHookEx(13,@keyHookProc,HInstance,0);<br>&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;True;<br>&nbsp;&nbsp;end<br>&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;False;<br>end;<br><br>function&nbsp;DisableHook:&nbsp;Boolean;&nbsp;stdcall;&nbsp;export;<br>begin<br>&nbsp;&nbsp;if&nbsp;hHk&nbsp;&lt;&gt;&nbsp;0&nbsp;then<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;UnHookWindowsHookEx(hHk);<br>&nbsp;&nbsp;&nbsp;&nbsp;hHk&nbsp;&nbsp;&nbsp;&nbsp;:=&nbsp;0;<br>&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;True;<br>&nbsp;&nbsp;end<br>&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;False;<br>end;<br><br><br><br><br>exports<br>&nbsp;&nbsp;EnableHook,<br>&nbsp;&nbsp;DisableHook;<br>end.

看不懂&nbsp;能不能傍边做个注释？

改变setwindowshookex第一个参数为wh_keyboard不就可以只过滤键盘消息吗？

大家都会想到用Hook（Code&nbsp;Copyer），其实有一个最简单的实现：BlockInput(),一行代码就搞定了

setwindowshookex第一个参数为wh_keyboard这样应当可以的

library&nbsp;KeyHook;<br><br>uses<br>&nbsp;&nbsp;Windows,Messages,SysUtils,<br>&nbsp;&nbsp;Classes;<br>const<br>&nbsp;&nbsp;AlTIsDownFlags=$20;<br>type<br>&nbsp;PKeyBoardLLStruct=^TKeyBoardLLStruct;<br>&nbsp;TKeyBoardLLStruct=record<br>&nbsp;&nbsp;&nbsp;VCodeWORD;<br>&nbsp;&nbsp;&nbsp;ScanCodeWORD;<br>&nbsp;&nbsp;&nbsp;FlagsWORD;<br>&nbsp;&nbsp;&nbsp;TimeWORD;<br>&nbsp;&nbsp;&nbsp;dwExtroInfoWORD;<br>end;<br>var<br>MyHook,HookHandle:HHook;<br>keyPress:boolean;<br><br>{$R&nbsp;*.res}<br><br>//屏蔽低级键盘<br>function&nbsp;KeyLLHookProc(icode:integer;wparam:Wparam;lparam:LPARAM):LRESULT;stdcall;<br>var<br>&nbsp;&nbsp;PKeyBoardLLStruct;<br>begin<br>&nbsp;&nbsp;result:=0;<br>&nbsp;&nbsp;if&nbsp;icode=HC_ACTION&nbsp;&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case&nbsp;wparam&nbsp;of<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WM_KEYDOWN,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WM_KEYUP,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WM_SYSKEYDOWN,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WM_SYSKEYUP:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;p:=PKeyBoardLLStruct(lparam);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;keyPress:=&nbsp;(P.VCode=VK_LWIN)&nbsp;or&nbsp;(P.VCode=VK_RWIN)&nbsp;or<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;((P.VCode=VK_TAB)&nbsp;and&nbsp;((P.Flags&nbsp;and&nbsp;AlTIsDownFlags)&lt;&gt;0))&nbsp;or<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;((P.VCode=VK_ESCAPE)&nbsp;and&nbsp;((P.Flags&nbsp;and&nbsp;AlTIsDownFlags)&lt;&gt;0))&nbsp;or<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;((P.VCode=VK_ESCAPE)&nbsp;and&nbsp;((GetKeyState(VK_CONTROL)&nbsp;and&nbsp;$8000)&lt;&gt;0))&nbsp;or<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;((P.VCode=VK_DELETE)&nbsp;and&nbsp;((GetKeyState(VK_CONTROL)&nbsp;and&nbsp;$8000)&lt;&gt;0)&nbsp;and&nbsp;((P.Flags&nbsp;and&nbsp;AlTIsDownFlags)&lt;&gt;0));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;KeyPress&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;result:=1;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;end<br>&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;CallNextHookEx(MyHook,icode,wparam,lparam);<br><br>end;<br><br>function&nbsp;InstallKeyHook:bool;stdcall;export;<br>begin<br>&nbsp;MyHook:=0;<br>&nbsp;MyHook:=SetWindowsHookEx(13{WH_KEYBOARD_LL},@KeyLLHookProc,Hinstance,0);<br>&nbsp;result:=(MyHook&lt;&gt;0);<br>end;<br>function&nbsp;UnInstallKeyHook:bool;stdcall;export;<br>begin<br>&nbsp;result:=UnHookWindowsHookEx(MyHook);<br>&nbsp;MyHook:=0;<br>end;<br><br><br>//屏蔽键盘<br>function&nbsp;KeyHookProc(icode:integer;wparam:WPARAM;lparam:LPARAM):LRESULT;stdcall;<br>begin<br>&nbsp;&nbsp;result:=0;<br>&nbsp;&nbsp;if&nbsp;icode&lt;0&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CallNextHookEx(hookHandle,icode,wparam,lparam)<br>&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;result:=1;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>end;<br><br>function&nbsp;EnabledKeyHook:bool;stdcall;export;<br>begin<br>&nbsp;hookHandle:=0;<br>&nbsp;hookHandle:=SetWindowsHookEx(WH_KEYBOARD,@KeyHookProc,Hinstance,0);<br>&nbsp;result:=(hookHandle&lt;&gt;0);<br>end;<br>function&nbsp;UnEnabledKeyHook:bool;stdcall;export;<br>begin<br>&nbsp;result:=UnHookWindowsHookEx(hookHandle);<br>&nbsp;hookHandle:=0;<br>end;<br><br>exports<br>&nbsp;&nbsp;InstallKeyHook,UnInstallKeyHook,EnabledKeyHook,UnEnabledKeyHook;<br>end.<br>&nbsp;<br>第一个钩子是屏蔽系统功能键的&nbsp;比如Alt+Tab&nbsp;,Ctrl+Esc,Win键.&nbsp;第二个是屏蔽普通键盘的。任务管理器是屏蔽不掉的。

http://www.delphibbs.com/keylife/images/u196832/Global_mouse_keyboard_Hook6_10.rar

楼主失踪了&nbsp;&nbsp;&nbsp;.....

WH_KEYBOARD_LL类型的钩子在2000以上系统有效,并且不需要使用Dll就可以实现全局HOOK

要想HOOK住按键消息的话，在回调函数中返回TRUE就行,不HOOK就返回CallNextWindowsHook