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

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;
 
faq/delphi/system/lock_pc.txt · Последние изменения: 2006/05/14 14:39 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki