Delphi兩種方法禁用鍵盤鼠標

有時候需要屏蔽掉鍵盤，禁用鍵盤鼠標，對此有兩種比較簡單的方法來實現，兩種方法都不麻煩，而且效果不錯，下面慢慢說。

方法1：調用未公開函數

function BlockInput(blocked:BOOL):BOOL;stdcall;external 'user32.dll ';

調用： BlockInput(True); // 禁用鼠標鍵盤

方法2：調用自定義函數

var
KHK: HHook; // 全局變量
function HookProc(ICode:integer; WP:WParam; LP:LParam):LResult; // 自定義函數
begin
Result:=CallNextHookEx(KHK,0,0,0);
end;

鎖定： KHK:=SetWindowsHookex(WH_JOURNALPLAYBACK,@HookProc,HInstance,0);

解鎖： UnHookWindowsHookEx(KHK);

不過上述兩種方法有遺憾，不能屏蔽Windows環境下的Ctrl-Alt-Tab,Ctrl-Esc,Alt-Tab等組合鍵，期待你擴展。。