Статистика | Зарегистрировано на сайте: Всего: 51647
Онлайн всего: 21 Гостей: 21 Пользователей: 0
|
|
Каталог статей
Как заблокировать компьютер
Для этого существует одна очень хорошая процедура, вот ее листинг:
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;
|
|
Просмотров: 474
| Рейтинг: 1.0/
4
Оштрафовать
| Жаловаться на материал |
|
|