API - desabilitar teclado e mouse

Top  Previous  Next

// Trava o teclado e mouse

 

procedure LockPC;

var

  OldValue: LongBool;

begin

  SystemParametersInfo(97, Word(True), @OldValue, 0);

  WinExec(PChar('rundll32 mouse,disable'   ), SW_SHOW);

  WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW);

end;