Delphi - база знаний


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


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




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;

Взято с Исходников.ru



Начало  Назад  Вперед



Книжный магазин