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

Вопрос

Как заблокировать клавиши Ctrl + Alt + Delete?

Ответ

Подготовьте проект, добавив в него форму. На форму поместите:
— Кнопку с именем Command1
— Кнопку с именем Command2

Добавьте в форму:

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

Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

'Usage:

Private Sub Command1_Click()
Me.Caption ="disable"
'To disable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(True)
End Sub

Private Sub Command2_Click()
Me.Caption ="enable"
'To enable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(False)
End Sub

@LEXis

Зачем их блокировать?
Просто делаем прагу невидной в системе команд Win9x:)

Option Explicit
Private Declare Function RegisterServiceProcess Lib "kernel32.dll" _
(ByVal dwProcessId As Long, ByVal dwType As Long)
As Long
Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long

Private Sub СделатьВидимой_Click()
Call RegisterServiceProcess(GetCurrentProcessId, 0)
End Sub

Private Sub СделатьНевидимой()
Call RegisterServiceProcess(GetCurrentProcessId, 1)
End Sub

ministr.