Сообщество Чайников

Вопрос

Как запретить пользователю нажимать Alt + Tab (Ctrl + ESC), когда программа активна?

Ответ

Это в модуль:
Public 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 Const SPI_SCREENSAVERRUNNING = 97

-------------------------------------------
Потом две кнопки cmdDisable и cmdEnable и код:

Private Sub cmdDisable_Click()
SystemParametersInfo SPI_SCREENSAVERRUNNING, True, ByVal 1&, 0
End Sub

Private Sub cmdEnable_Click()
SystemParametersInfo SPI_SCREENSAVERRUNNING, False, ByVal 1&, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
' re-enable Ctrl+Alt+Del and Alt+Tab before the program terminates!
cmdEnable_Click
End Sub

@LEXis

Но работает только под win9x