[ Отключение Alt-Ctrl-Delete ]
Date: 17.01.02
Хочу сразу же предупредить, дабы избежать излишней критики, что если Вы считаете,
что знаете 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"
Надеюсь, статья Вам понравилась.
Nokya [KODSWEB]
!!! Статья является собственностью команды KODSWEB !!!
!!! Любое распространение без нашего разрешения строго запрешено !!!
|
