Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира


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

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;

 

 


Основные разделы сайта


 

Реклама