| Вопрос: disable Windows | Добавлено: 17.09.03 17:13 |
Автор вопроса:  Emil Revencu
|
|
Такая задача - есть программа которая запускает другие проги. Нужно заблокировать все опции windows-a тоесть доступ к ПУСК, Панель Упр, CTRL+ESC, Рабочий стол,итд. Работать только с загруженной прогой и с загружаемыми ею прогами. Благодарю заранее. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  crackoff ICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #1 | Добавлено: 17.09.03 17:34 |
|
Ставь hook на клавиши, а exploroer выгружай к чертям. Но это ненормально (хотя я бы сделал именно так) , есть, наверное функции, но я их не знаю... |
||
|
Номер ответа: 2 Автор ответа: ChillICQ: 554200 Вопросов: 101 Ответов: 343 |
Профиль | | #2 | Добавлено: 18.09.03 00:53 |
|
Пропиши свою прогу вместо эксплорере в Групповых политиках или вручную |
||
|
Номер ответа: 3 Автор ответа: Alliancce Вопросов: 4 Ответов: 10 |
Профиль | | #3 | Добавлено: 18.09.03 09:31 |
|
Программу запускать под администраторскими правами. А пользователя под "птичьими". |
||
|
Номер ответа: 4 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #4 | Добавлено: 18.09.03 10:04 |
|
Есть более веселый способ `Код формы Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const WM_QUIT = &H12 Private Sub Form_Load() Dim hW As Long Dim resp As Long hW = FindWindow(vbNullString, "" & Chr(0)) If hW <> 0 Then resp = PostMessage(hW, WM_QUIT, 0, 0) Unload Me End Sub Компиль, закрывай VB. И запускай (можешь пихнуть в автозагрузку, будет совсем веселуха). У меня на 2к работает всегда. На других не пробовал... |
||
)Страница: 1 |