Отключение Alt-Ctrl-Delete

[SEARCHER]

Хочу сразу же предупредить, дабы избежать излишней критики, что если Вы считаете,
что знаете Visual Basic на 5 по 5-ти бальной системе, то можете это не читать.

А теперь к делу:
Начнём с очень полезной вещи для многих очень полезных программ - отключения
комбинации клавиш - Alt-Ctrl-Delete. Надеюсь, Вы не считаете, что это очень сложно...?
Приступим:

1. очень простая операция - объявление API-функции:

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

И что дальше...? А дальше, для проверки работоспособности нашей функции поместим
на форму две кнопочки Command1 и Command2.

2. При одиночном нажатии на каждую из кнопок у нас будет вызываться
функция SystemParametersInfo, но с разными значениями:

Private Sub Command1_Click()
SystemParametersInfo 97, True, CStr(1), 0
End Sub

Private Sub Command2_Click()
SystemParametersInfo 97, False, CStr(1), 0
End Sub

Как вы, наверное, поняли нажатие на Command1 отключает Alt-Ctrl-Delete, а
нажатие на Command2 - наоборот. Можете смело это вставлять в свою программу и идти
говорить своим друзьям, что вы взломали сам windows - пусть завидуют. Только не пробуйте
это сделать в 2000-там все равно ничё ни хр_на не работает.
Что..? Вы не хотите, чтобы ваши друзья завидовали...? Или Ваши запросы гораздо больше,
и Вы уже что-то сбацали, и просто хотите, чтобы вашу прогу не было видно в окошке
завершения работы программы при нажатии на Alt-Ctrl-Delete..?

Ну что же и это не проблема!!!

1. Опять же начнём с того, что объявим ... - правильно API-функции, но их уже две:

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

2. Два раза тыкаем на форму и в процедуре Form_Load записываем следующее:

Private Sub Form_Load()
Call RegisterServiceProcess(GetCurrentProcessId, 1)
End Sub

Всё оказалось намного проще, чем вы думали...? Отсюда правило: "Читайте книжки по Win API"