Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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 эмулировать запуск скренсервера под нт никак


Наверх

Титульная страница Поиск, карта сайта Написать письмо