![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!my [D3, Win95/98]
programmist © (2002-11-29 00:00:00)Пожалуйста помогите кто знает как заблокировать ctrl+alt+del скажите мне
Aku (2002-11-29 19:29:00) [1]Смотри FAQ и закрываем дискуссию.
Song (2002-11-29 18:47:00) [2]2Vladimir Gorkov (29.11.02 13:18)
Да хук хорошо. Вот только вопрос был про CAD, а не Alt-Tab или Ctrl+ESC
nekto (2002-11-29 14:04:00) [3]Под любую платформу, всего за пару $$$
Крот (2002-11-29 13:51:00) [4]Да, я, кстати, тоже присоединяюсь к KSergey. Если не секрет, зачем это надо?
Vladimir Gorkov (2002-11-29 13:18:00) [5]Это пример на Си. Но Функции API они везде...
/******************************************************************************
Module: DisableLowLevelKeys.cpp
Notices: Written 2000 Jeffrey Richter
******************************************************************************/
#define _WIN32_WINNT 0x0400
#include
///////////////////////////////////////////////////////////////////////////////
LRESULT CALLBACK LowLevelKeyboardProc(int nCode,
WPARAM wParam, LPARAM lParam) {
BOOL fEatKeystroke = FALSE;
if (nCode == HC_ACTION) {
switch (wParam) {
case WM_KEYDOWN: case WM_SYSKEYDOWN:
case WM_KEYUP: case WM_SYSKEYUP:
PKBDLLHOOKSTRUCT p = (PKBDLLHOOKSTRUCT) lParam;
fEatKeystroke =
((p->vkCode == VK_TAB) && ((p->flags & LLKHF_ALTDOWN) != 0)) ||
((p->vkCode == VK_ESCAPE) && ((p->flags & LLKHF_ALTDOWN) != 0)) ||
((p->vkCode == VK_ESCAPE) && ((GetKeyState(VK_CONTROL) & 0x8000) != 0));
break;
}
}
return(fEatKeystroke ? 1 : CallNextHookEx(NULL, nCode, wParam, lParam));
}
///////////////////////////////////////////////////////////////////////////////
int WINAPI WinMain(HINSTANCE hinstExe, HINSTANCE, PTSTR pszCmdLine, int) {
// Install the low-level keyboard & mouse hooks
HHOOK hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL,
LowLevelKeyboardProc, hinstExe, 0);
// Keep this app running until we"re told to stop
MessageBox(NULL,
TEXT("Alt+Esc, Ctrl+Esc, and Alt+Tab are now disabled.\n")
TEXT("Click \"Ok\" to terminate this application and re-enable these keys."),
TEXT("Disable Low-Level Keys"), MB_OK);
UnhookWindowsHookEx(hhkLowLevelKybd);
return(0);
}
KSergey (2002-11-29 07:22:00) [6]А ЗАФИГА, БЛИН???!!!!!! Нефигом заняться???
Крот (2002-11-29 06:26:00) [7]На этом же сайте в FAQ
Maksss (2002-11-29 02:49:00) [8]под вин98 эмулировать запуск скренсервера под нт никак