Хук клавиатуры (локальный)

@__bool · Регистрация: 13.06.2010

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

Приветствую. Требуется отлавливать нажатые клавиши, но на Windows 7 не получается.
С++ Builder XE

C++
1
2
3
4
5
6
7
8
9
10
11
12
HHOOK hHook;
LRESULT CALLBACK KeyboardProc(
    int code,   
    WPARAM wParam,  
    LPARAM lParam)
{
 if(code==HC_ACTION)
 {
  Form1->Label1->Caption=AnsiString(char(wParam));
 }
  return CallNextHookEx(hHook,code,wParam,lParam);
}

C++
1
2
3
4
5
6
void __fastcall TForm1::Button1Click(TObject *Sender)
{
hHook=SetWindowsHookEx(WH_KEYBOARD,(HOOKPROC)KeyboardProc,HInstance,0);
if(!hHook)ShowMessage("Hook Failed");
if(hHook)Caption="Hooked";
}

Результат: Hook Failed

@Programmer. · 31.08.2011, 17:44

Fuckall666,
А у меня отлично работает

без проблем и пишет "Hooked"

cpp_developer · 31.08.2011, 18:32

и у меня "Hook Failed"

@Programmer. · 31.08.2011, 19:00

Ну вот у меня...

cpp_developer · 31.08.2011, 19:28

я тоже правду говорил

@Programmer. · 31.08.2011, 19:57

LK,
Наверное ето ток на 7 не работает...

@kzru_hunter · 31.08.2011, 20:08

А если так:

C++
1
hHook=SetWindowsHookEx(WH_KEYBOARD,(HOOKPROC)KeyboardProc, NULL ,GetCurrentThreadId());

@__bool · 31.08.2011, 21:15 **[ТС]**

Сообщение от kzru_hunter

А если так:

C++
1
hHook=SetWindowsHookEx(WH_KEYBOARD,(HOOKPROC)KeyboardProc, NULL ,GetCurrentThreadId());

Отлично! Спасибо! Это решает проблему! А знает ли кто-нибудь почему?

cpp_developer · 31.08.2011, 21:38

Сообщение от Fuckall666

почему?

я бы почитал про HInstance и GetCurrentThreadId().

@__bool · 31.08.2011, 21:40 **[ТС]**

А как сделать чтоб не дублировались символы?

C++
1
2
3
4
if(!(lParam >> 31 & 1)) 
    {
        str += AnsiString((char)wParam);
    }

все символы дублируются!

cpp_developer · 31.08.2011, 21:53

C++
1
str = AnsiString((char)wParam);

? хотя не понятно, что у вас там дублируется, в общем-то...

@__bool · 31.08.2011, 21:55 **[ТС]**

Сообщение от LK

C++
1
str = AnsiString((char)wParam);

? хотя не понятно, что у вас там дублируется, в общем-то...

Все что нажали должно записаться в строку! а не последний нажатый символ

cpp_developer · 31.08.2011, 22:04

у меня тоже при такой записи билдер глючит, попробуйте без гламура

C++
1
str = str+AnsiString((char)wParam);

@__bool · 31.08.2011, 22:06 **[ТС]**

Сообщение от LK

у меня тоже при такой записи билдер глючит, попробуйте без гламура

C++
1
str = str+AnsiString((char)wParam);

Не помогло

cpp_developer · 31.08.2011, 22:09

C++
1
if(!(lParam >> 31 & 1))

это что?

@__bool · 31.08.2011, 22:12 **[ТС]**

Сообщение от LK

C++
1
if(!(lParam >> 31 & 1))

это что?

Так проверяют нажата ли клавиша
Так тоже работает:

C++
1
if(nCode == HC_ACTION)

cpp_developer · 31.08.2011, 22:18

что б не думать

, покажите свой код, попробую

@__bool · 31.08.2011, 22:20 **[ТС]**

Сообщение от LK

что б не думать

, покажите свой код, попробую

Какой у вас билдер?

cpp_developer · 31.08.2011, 22:23

рад хе

cpp_developer · 31.08.2011, 23:00

да как бы рабтает все...

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
HHOOK hHook;
AnsiString str;
TStringList* log;
int i;
bool bTimeIsOut;
 
LRESULT CALLBACK KeyboardProc(int nCode, WPARAM wParam, LPARAM lParam)
{
  if(!(lParam >> 31 & 1)) //нажатие клавиши
//  if(nCode == HC_ACTION)
  if (nCode >= 0)
  {
    if ((char)wParam == 8) {
      str.Delete(str.Length(),1);
    }
    else
      str = str+AnsiString((char)wParam);
  }
  if (nCode <0)
    return CallNextHookEx(hHook, nCode, wParam, lParam);
  else
    return 0;
}
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  str = "";
//  bTimeIsOut = false;
//  i = 0;
//  log = new TStringList;
  Form1->KeyPreview = true;
  Memo1->ScrollBars = ssVertical;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//  WebBrowser1->Navigate("http://vkontakte.ru");
 
  hHook=SetWindowsHookEx(WH_KEYBOARD,(HOOKPROC)KeyboardProc, HInstance ,GetCurrentThreadId());
 
  if(!hHook)ShowMessage("Failed");
  if(hHook)Caption="vk.com on";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
//  if(UnhookWindowsHookEx(hHook)) Caption="vk.com off";
//  //else ShowMessage("Can't unhook");
//
//  log->Add(str);
//  ShowMessage(log->Text);
//
//  AnsiString mail;
//  for (i = 0; i < log->Count; ++i) {
//   mail += log->Strings[i]+" ";
//  }
//  ShowMessage(log->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//  Timer1->Interval=100;
//  if (i > 2) {
//    log->Add(str);
//    str = "";
//    i = 0;
//  }
//  else {
//    ++i;
//  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//  if(UnhookWindowsHookEx(hHook)) Caption="vk.com off";
//  //else ShowMessage("Can't unhook");
//
//  log->Add(str);
//
//  AnsiString mail;
//  for (i = 0; i < log->Count; ++i) {
//   mail += log->Strings[i]+" ";
//  }
  ShowMessage(log->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
//  if(UnhookWindowsHookEx(hHook)) Caption="vk.com off";
//  else ShowMessage("Can't unhook");
//  log->Add(str);
//  AnsiString mail;
//  for (i = 0; i < log->Count; ++i) {
//   mail += log->Strings[i]+" ";
//  }
  str+=str;
  Memo1->Lines->Add(str);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
  Memo1->SetFocus();
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	31.08.2011, 17:44
	Fuckall666, А у меня отлично работает без проблем и пишет "Hooked" 1

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	31.08.2011, 18:32
	и у меня "Hook Failed" 0

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	31.08.2011, 19:00
	Ну вот у меня... Миниатюры 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	31.08.2011, 19:28
	я тоже правду говорил Миниатюры 0

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	31.08.2011, 19:57
	LK, Наверное ето ток на 7 не работает... 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	31.08.2011, 22:18
	что б не думать , покажите свой код, попробую 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	31.08.2011, 22:23
	рад хе 0