delphi - マウスとキーボードのイベントを処理しないフォーム

Question

マウスとキーボードのイベントを処理しないフォームを Delphi で作成し、それらをその下のウィンドウに渡したいと考えています。これどうやってするの？

Answer 1

USER32.DLL の BlockInput プロシージャを利用できます。

これを試すことができます（注意してください！）：

procedure Bloqued(block:boolean);
var
  milib: THandle;
  BlockInput : function(Block: BOOL): BOOL; stdcall;
begin
  milib := GetModuleHandle('USER32.DLL');
  if milib <> 0 then begin
    @BlockInput := GetProcAddress(milib, 'BlockInput');
    if @BlockInput <> nil then begin
       BlockInput(block);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
begin
  Bloqued(true);
  Sleep(1000);
  Bloqued(false);
end;

動的負荷なしのバージョン:

Function BlockInput (Block: BOOL): BOOL; stdcall; External 'USER32.DLL';

procedure TForm1.Button1Click(Sender: TObject);
begin
  BlockInput(true);
  Sleep(1000);
  BlockInput(false);
end;