Для того, чтобы предотвратить показ Менеджера Задач и переключение между несколькими окнами надо отключить функции сочетания клавиш 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