Отключение функциональных клавиш |
Автор Бельбаков Александр | |
27.11.2001 г. | |
Для того, чтобы предотвратить показ Менеджера Задач и переключение между несколькими окнами надо отключить функции сочетания клавиш Alt + Tab и Ctrl + Alt + Del. Это делается с помощью вызова функции SystemParametersInfo.
Чтобы отключить функции сочетания клавиш Alt + Tab и Ctrl + Alt + Del необходимо сообщить системе, что в данное время выпоняется Screen Saver. Для этого необходимо использовать API функцию SystemParametersInfo. Объявим API функцию и создадим подпрограмму ChangeState: 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 ChangeState(SrcSaverRunnig As Boolean) Dim Ret As Long Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, SrcSaverRunnig, 0, 0) End Sub В параметре SrcSaverRunning передаём состояние Screen Saver (запущен или нет, соответственно и меняем состояние клавишь). Теперь добавляем пару строк в код загрузки и выгрузки формы: Private Sub Form_Load() ChangeState True End Sub Private Sub Form_Unload(Cancel As Integer) ChangeState False End Sub Скачать пример. |