Mouse und Tastatur sperren

[JPSelter]

Ein Mitarbeiter verlässt morgen die Firma und wir möchten ihm nochmal einen kleinen Streich spielen. Es soll ein spezieller Bildschirmschoner starten, der Mitarbeiter sollte ihn aber nicht durch Mouse oder Tastatur beenden können. Gibt es da eine einfache Möglichkeit?

[Forlan]

Demächst benutzen wir die DP-Suche...

[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);