VBNet - Форум - Проблема Win2K (2)

Вопрос: Проблема Win2K (2) Добавлено: 03.04.03 14:59

Автор вопроса: Sernij

Трабл опять под Win2K c блокировкой клавиш Ctrl+Alt+Delete и Alt+Tab как то же сделать под Win2K/XP. Под Win98/Me это выглядит так:

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
Private Const SPI_SCREENSAVERRUNNING = 97&
Public Sub AllowKeys(bParam As Boolean)
Dim lRetVal As Long, bOld As Boolean
lRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, bParam, bOld, 0&)
End Sub
Private Sub Form_Load()
Call AllowKeys(True) 'блокировка сочетаний
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call AllowKeys(False) 'разблокировка сочетаний
End Sub

'ВАРИАНТ 2

'без дополнительной подпрограммы
'Добавьте два элемента CommandButton. Первая кнопка блокирует сочетание клавиш, вторая - разрешает.
Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Sub Command1_Click()
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, "1", 0)
End Sub

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

ICQ: 346632205

Вопросов: 5
Ответов: 86

Профиль | | #1

Добавлено: 03.04.03 15:11

ctrl alt del под ХР:

Public Declare Function GetVersion Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Private Sub Command1_Click()
If GetVersion >= 0 Then
App.TaskVisible = False
Else: RegisterServiceProcess GetCurrentProcessId, 1
End If
End Sub

Ответить

Номер ответа: 2
Автор ответа:

Sernij

Вопросов: 30
Ответов: 22

Профиль | | #2

Добавлено: 03.04.03 21:10

Хэй кодеры а как на счёт Alt+F4 i Alt+Tab плыызззз

Ответить

Номер ответа: 3 Автор ответа: P ICQ: 346632205 Вопросов: 5 Ответов: 86	Профиль \| \| #3	Добавлено: 03.04.03 23:31
	Так сразу ничего предложить не могу, кроме как просто отлавливать нажатия всех клавиш Ответить

Страница: 1 |