Disable Keyboard under W2K

[December]

Greetings all!
How can one disable keyboard under W2K?

 

[awarnica]

Can you capture the keypress events on the form (keypreview = true)

and on_keypress just do an exit, or reset the ORD to be zero?

Doesnt "really" disable the keyboard but in a form based application you can emulate this.

"If it's stupid and it works, then it isn't stupid"

 

[December]

I mean for the whole system

 

[Raven078]

Button1 on Form1 - disable mouse and keyboard for 5 seconds:
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.Button1Click(Sender: TObject) ;

function FuncAvail
(_dllname, _funcname: string; var _p: pointer):
boolean;
var _lib: tHandle;
begin
Result := false;
_p := NIL;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname)) ;
if _lib <> 0 then
begin
_p := GetProcAddress(_lib, PChar(_funcname)) ;
if _p <> NIL then Result := true;
end;
end;


var
xBlockInput : function(Block: BOOL):
BOOL; stdcall;

begin
if FuncAvail
('USER32.DLL', 'BlockInput', @xBlockInput) then
begin
xBlockInput(true) ;
Sleep(5000) ;
xBlockInput(false) ;
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~