Mouse und Tastatur sperren

[Hobby-Programmierer]

Einfach nach BlockInput suchen. Gibt untählige Codebeispiele

[edit] das hatte ich mal benutzt, Quelle weiss ich nimmer

Delphi-Quellcode:

var DLLHandle: THandle;
FuncPtr: TFarProc;
BI: function(Block: BOOL): BOOL; stdcall;
i: Integer;
begin
  DLLHandle := LoadLibrary('user32.dll');
  FuncPtr := GetProcAddress(DLLHandle, 'BlockInput');

  if FuncPtr <> nil then begin
    @BI :=GetProcAddress(DLLHandle, PChar('BlockInput')) ;
    BI(true);

    for i := 10 downto 1 do begin
      Blocktime.Caption := IntToStr(i);
      Application.ProcessMessages();
      Sleep (1000);
    end;
    Blocktime.Caption := '';

    BI(false);
  end;
  FreeLibrary(DLLHandle);