Examples Delphi

Title: Procedure that can lock your PC?
Question: How to lock a PC ???
Answer:
Here it goes:
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;
Have fun!!!