| [11067] ローカルキーフック | 返信 削除 |
| 2017/4/11 (火) 09:26:55 Mr.XRAY |
|
[ESCキーの無効について] 動作仕様的にはよく理解できない仕様ですが， ローカルなキーフックを使用して [ESC] を無効にする例です． implementation uses Unit2; {$R *.DFM} var KeyHookHandle : HHOOK=0; //----------------------------------------------------------------------------- // キーフックのコールバック関数 // wPar : 仮想キーコード // lPar : キーの状態(MSDNのKeyboardProc callbackiに説明あり) //----------------------------------------------------------------------------- function KeyHookProc(nCode:integer; wPar: WPARAM; lPar: LPARAM): LRESULT; stdcall; begin Result := 0; if nCode < 0 then begin Result := CallNextHookEx(KeyHookHandle, nCode, wPar, lPar); exit; end; if nCode = HC_ACTION then begin if (wPar = VK_ESCAPE) then begin //本来動作を無効にする Result := 1; end; end; if Result = 0 then begin Result := CallNextHookEx(KeyHookHandle, nCode, wPar, lPar); end; end; //============================================================================= // 別のフォームをモーダル表示 //============================================================================= procedure TForm1.Button5Click(Sender: TObject); var AForm : TForm2; begin AForm := TForm2.Create(Self); try AForm.Left := 500; AForm.Top := 300; AForm.ShowModal; finally FreeAndNil(AForm); end; end; //============================================================================= // キーフック開始 //============================================================================= procedure TForm1.Button1Click(Sender: TObject); begin if KeyHookHandle = 0 then begin KeyHookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyHookProc, 0, GetCurrentThreadId); end; end; //============================================================================= // キーフックを解 //============================================================================= procedure TForm1.Button2Click(Sender: TObject); begin if KeyHookHandle <> 0 then begin UnhookWindowsHookEx(KeyHookHandle); KeyHookHandle := 0; end; end; end.  |