Как заблокировать компьютер

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;