Mega Code Archive

 

Categories / Delphi / Examples

 

Procedure that can lock your PC

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!!!