procedure LockPC; 
var OldValue: LongBool; 
begin 
   SystemParametersInfo(97, Word(Bool), @OldValue, 0); 
   WinExec(PChar('rundll32 mouse,disable'), SW_SHOW); 
   WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW); 
end;