Блокировка клавиатуры

@Kle10wka · Регистрация: 10.03.2013

Студворк — интернет-сервис помощи студентам

Скажите как программно блокировать клавиатуру в C++ Builder, нашел BlockIntup, но она блочит и мышку тоже. Наткнулся на высказывание про хук на клаву,но не понял как это сделать. Может у кого-то есть рабочий текст с использованием хука, буду очень благодарен. ОС Windows 7.

@_Dimon_ · 10.03.2013, 16:35

Сделай блокровку таким образом, тогда пойдет

C++
1
2
3
4
5
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        // блокировка
        hHookWindows = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)&KeyboardProc, NULL, NULL);
}

Добавлено через 1 минуту
в выше указаном примере, конечно

@Kle10wka · 10.03.2013, 16:40 **[ТС]**

спасибо за помощь,сейчас попробую.

@_Dimon_ · 10.03.2013, 17:03

Вот код (клавиатура с мышью), а если надо на время то добавь таймер

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
HHOOK KeybHookHandle, MouseHookHandle;
LRESULT CALLBACK KeybProc(int code, WPARAM wParam, LPARAM lParam);
LRESULT CALLBACK MouseProc(int code, WPARAM wParam, LPARAM lParam);
//---------------------------------------------------------------------------
 
__fastcall TfMain::TfMain(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
__fastcall TfMain::~TfMain() // в деструкторе прописал на всякий пожарный
{
 if (KeybHookHandle) UnhookWindowsHookEx(KeybHookHandle);
 if (MouseHookHandle) UnhookWindowsHookEx(MouseHookHandle);
}
//---------------------------------------------------------------------------
void __fastcall TfMain::Button1Click(TObject *Sender)
{
 // блокировать клавиатуру
 KeybHookHandle = SetWindowsHookEx(WH_KEYBOARD_LL,(HOOKPROC)&KeybProc,NULL ,NULL);
 if (!KeybHookHandle) ShowMessage("Error SetWindowsHookEx Keyboard");
}
//---------------------------------------------------------------------------
void __fastcall TfMain::Button2Click(TObject *Sender)
{
 // разблокировать клавиатуру
 UnhookWindowsHookEx(KeybHookHandle);
}
//---------------------------------------------------------------------------
void __fastcall TfMain::Button3Click(TObject *Sender)
{
 // блокировать мышь
 MouseHookHandle = SetWindowsHookEx(WH_MOUSE_LL,(HOOKPROC)&MouseProc,NULL ,NULL);
 if (!MouseHookHandle) ShowMessage("Error SetWindowsHookEx Mouse");
}
//---------------------------------------------------------------------------
void __fastcall TfMain::Button4Click(TObject *Sender)
{
 // разблокировать мышь
 UnhookWindowsHookEx(MouseHookHandle);
}
//---------------------------------------------------------------------------
LRESULT CALLBACK KeybProc(int code, WPARAM wParam, LPARAM lParam)
{
 return -1;
}
//-------------------------------------------------------------------- -------
LRESULT CALLBACK MouseProc(int code, WPARAM wParam, LPARAM lParam)
{
 return -1;
}
//---------------------------------------------------------------------------

@Kle10wka · 10.03.2013, 19:19 **[ТС]**

_Dimon_
большое вам спасибо за помощь,все работает

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Kle10wka 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 12

	Блокировка клавиатуры 10.03.2013, 11:43. Показов 5278. Ответов 23 Метки нет (Все метки) Скажите как программно блокировать клавиатуру в C++ Builder, нашел BlockIntup, но она блочит и мышку тоже. Наткнулся на высказывание про хук на клаву,но не понял как это сделать. Может у кого-то есть рабочий текст с использованием хука, буду очень благодарен. ОС Windows 7. 0

@Kle10wka 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 12
	10.03.2013, 16:40 [ТС]
	спасибо за помощь,сейчас попробую. 0

@Kle10wka 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 12
	10.03.2013, 19:19 [ТС]
	_Dimon_ большое вам спасибо за помощь,все работает 0