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

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 · Последнее изменение: d.m.Y H:i — 127.0.0.1
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki