Ctrl Alt Del

[13GHOST]

Как заблочить сочетание клавиш Ctrl Alt Del и Alt Tab

[hCORe]

Если в Win9x - запросто , ставишь флаг работы программы-заставки:

Код: Выделить всё

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

или

Код: Выделить всё

'без дополнительной подпрограммы
'Добавь два элемента 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
Private Sub Command2_Click()
    Call SystemParametersInfo( _
    SPI_SCREENSAVERRUNNING, False, "1", 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Call SystemParametersInfo( _
    SPI_SCREENSAVERRUNNING, False, "1", 0)
End Sub

Если в WinNT/2000/XP - невозможно
(если ты не системный сервис, естественно )