|
Как заблокировать компьютер
Для этого существует одна очень хорошая процедура, вот ее листинг:
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; |
Категория: Примеры на Delphi7 | Добавил: DelphiAiX (28.07.2011)
|
Просмотров: 1211
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|