 |
| Главная |
| Программы |
| Статьи |
| Разное |
| Форум |
| Контакты |
Как заблокировать сочетания клавиш Ctrl+Alt+Del и Alt+Tab
'ВАРИАНТ 1| CODE NOW! |
| 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 |
'ВАРИАНТ 2
| CODE NOW! |
| 'без дополнительной подпрограммы 'Добавьте два элемента 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 |
| отсутствуют |
| :: Последние обновления :: |
| 04.09.2011 Долгожданный релиз VB Decompiler. Масса улучшений декомпиляции Native Code. Значительно расширенна и обновлена справочная система на русском и английском языках. |
| 20.12.2010 DotFix Software поздравляет наших клиентов и посетителей сайта с наступающим Новым Годом и рождеством! Желаем приятно провести праздники и успехов в новом году! |
| 28.11.2010 Выпущена новая версия защиты DotFix NiceProtect. Основные изменения коснулись обфускатора Delphi программ. Теперь имеется полная поддержка Tab и Page контролов на формах, что обеспечивает максимальную совместимость обфускации с Delphi XE программами. |
| 21.10.2010 Обновлен декомпилятор Visual Basic программ до версии 8.1. Декомпиляция P-Code программ становится все более идеальной, также проделана большая работа по улучшению анализа Native Code и .NET приложений. |
| 16.09.2009 Полностью обновлен движок сайта! Теперь все ссылки имеют читаемый понятный вид, разного рода глюки на страницах убраны. И теперь сайт полноценно работает на второй версии нашего движка. |
Движок сайта: DotFix Engine v0.2 Администрация сайта: |