| Вопрос: Блокировка компьютера | Добавлено: 02.03.03 12:11 |
Автор вопроса:  Sernij
|
| Вообщем дело такое : как создать форму с полем ввода пароля, причём закрыть которую можно токо набрав правильно пароль и при этом чтобы блокировались такие Виндоус команды как Ctrl+Alt+delete, Alt+tab, Alt+F4. Заранее буду благодарен а если надо то и помогу чем смогу. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 02.03.03 14:17 |
|
СМОТРИ! в General Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long Public Sub AllowKeys(bParam As Boolean) 'Блокировка кнопок А это куда хочешь Call AllowKeys(False) 'разблокировка сочетаний ВСЁ! А как Alt+F4 незнаю, скорее всего нужно программу назначить процессом какого-нибуть сервиса Пока! |
||
|
Номер ответа: 2 Автор ответа:  Justas   ICQ: 259418212 Вопросов: 24 Ответов: 325 |
Web-сайт: Профиль | | #2 | Добавлено: 04.03.03 08:58 |
|
От alt+f4 спасает BorderStyle = 0 и ещё, она у тебя будет с виндозой стартовать? Тогда сделай её поверх всех окон. Я когда-то писал такую (если хочешь могу исходники дать), так вот, если юзверь оставляет какой нибудь каталог открытым и выключает машину, то при старте - запустится твоя прога, а поверх её - этот каталог. По этому ешё напиши так: Public Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal x%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F Public Const HWND_TOPMOST = -1 в форм лоад: Dim retval As Long retval = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags) |
||
As IntegerСтраница: 1 |