Статистика | Зарегистрировано на сайте: Всего: 51642
Онлайн всего: 45 Гостей: 45 Пользователей: 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;
|
|
Просмотров: 471
| Рейтинг: 1.0/
4
Оштрафовать
| Жаловаться на материал |
|
|