Программа отключающая Alt + Ctrl + Del

Создайте на форме две кнопки. Назовите их cmdBIKL cmdBKl. Далее просто внесите весь этот пример в соответствующие поле для текста.

Пример программы:

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 'Это надо написать перед всем текстом программы

Private Sub cmdBIKL_Click() 'включить нажатие Alt + Ctrl + Del

SystemParametersInfo SPI_SCREENSAVERRUNNING, True, ByVal 1&, 0

End Sub

Private Sub cmdBKL_Click() 'оключить нажатие Alt + Ctrl + Del

SystemParametersInfo SPI_SCREENSAVERRUNNING, False, ByVal 1&, 0

End Sub

Private Sub Form_Unload(Cancel As Integer) 'включение Alt + Ctrl + Del по заввершению программы, НЕ ОБЯЗАТЕЛЬНО!

cmdBKL_Click

End Sub