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

@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_
большое вам спасибо за помощь,все работает

Новые блоги и статьи Все статьи Все блоги /
24 Мат модель здравосохранения: функциональные требования к строительству пищеблока anaschu 18.06.2026 СРесурсами1: финансовый SD-контур, калькулятор функциональных требований пищеблока Сегодня разделили затраты в агенте Экономика по образцу модели НАСОСЫ, добавили расчёт ROI и построили первый. . .	23. что сделано за последнее время. anaschu 17.06.2026 • Эталон: Клиника НИИ питания РАМН, Москва — централизованный пищеблок, 225 коек, 180 пациентов • Git: репозиторий med2, ветка абсентеизм. Рабочий файл: СРесурсами1_v4. alp • Смежный проект:. . .	22. Подключение слоя системной динамики (потоковые диффуры): экономические метрики модели anaschu 17.06.2026 Апдейт модели: финансовый контур, разделение затрат Продолжаю развивать модель рабочего коллектива на AnyLogic. В этот раз работа шла над агентом Экономика — финансовым SD-слоем модели. Задача:. . .	[golang] Insert Delete GetRandom O(1) (Leetcode: 380) alhaos 16.06.2026 Insert Delete GetRandom O(1) Сложность: Medium Источник: LeetCode 380 Задача Реализовать структуру данных RandomizedSet, которая поддерживает следующие операции за O(1) в среднем:
Свет в конце тоннеля kumehtar 16.06.2026 Поймал себя на одной мысли. Раньше мне всегда казалось неправильным жить без чёткого понимания, куда всё идёт. Будто я иду по дороге судьбы, но не знаю, куда она ведёт. А раз не знаю — значит,. . .	[golang] Реализация стека с поддержкой получения минимального элемента за O(1) alhaos 16.06.2026 Min Stack Сложность: Medium Источник: LeetCode 155 Задача: Реализовать стек который поддерживает push, pop, top и получение минимального элемента за O(1). Методы:	[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .

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

	Блокировка клавиатуры 10.03.2013, 11:43. Показов 5148. Ответов 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