VPF::hook на keyboard - Форум программистов

Ищущий!

Дата 26.6.2006, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 19.4.2005

Репутация: нет
Всего: нет

Вот код библиотеки!
Вопрос, сообщение с нажатой кнопкой вылазеет при keyup и keydown, то есть 2 раза.. ка сделать, что бы выскакивала 1 раз при up или down

Код


library hook;

uses Windows, Messages, dialogs;

const 
MMFName:PChar='Keys'; 

var 
 SysHook : HHook = 0;
 Wnd : Hwnd = 0;

function ShiftDown : Boolean;
var 
  State : TKeyboardState; 
begin 
  GetKeyboardState(State); 
  Result := ((State[vk_Shift] and 128) <> 0); 
end;

function KeyboardProc(code:integer;wParam:word;lParam:longint):longint;stdcall;
var msg: PEVENTMSG;
begin
  CallNextHookEx(SysHook,Code,wParam,lParam);
   msg := Pointer(LParam);
    if(code=HC_ACTION)
      AND
     ((wParam>=65)and(wParam<=90))
  then
    begin
      if(shiftdown())then
        showmessage(char(wparam))
      else
         showmessage(char(wparam+32))
      end;

    Result:= 0;
    end;


procedure RunStopHook(State : Boolean) export; stdcall;
begin
 if State=true then
  begin
   SysHook := SetWindowsHookEx(WH_KEYBOARD,
      @KeyboardProc, HInstance, 0);
  end
 else
  begin

   UnhookWindowsHookEx(SysHook);
   SysHook := 0;
  end;
end;

exports RunStopHook index 1;

begin
end.

Alexeis

Дата 26.6.2006, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Ищущий!, параметр lParam указывает тип события если его значение

Цитата

30
Specifies the previous key state. The value is 1 if the key is down before the message is sent; it is 0 if the key is up.
31
Specifies the transition state. The value is 0 if the key is being pressed and 1 if it is being released.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Ищущий!

Дата 26.6.2006, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 19.4.2005

Репутация: нет
Всего: нет

ага.. пасиб.. а причем тогда 30 и 31?

Yanis

Дата 26.6.2006, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

Цитата(Ищущий! @ 26.6.2006, 19:06

)

а причем тогда 30 и 31?

Номера бит.

--------------------

*щёлк*

Ищущий!

Дата 26.6.2006, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 19.4.2005

Репутация: нет
Всего: нет

Ой.. ничего не понятно.. могете мой пример подправить?

Alexeis

Дата 28.6.2006, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Цитата(Ищущий! @ 26.6.2006, 18:51

)

Ой.. ничего не понятно..

значение lParam - есть 32 битное целое число
Например в двоичной системе
101110110011100110101010101110100
Если 30 по счету бит установлен в 1 то перед отправкой сообщения кнопка была еще нажата
1(0)1110110011100110101010101110100
указанный бит взят в скобки
Как проверить его состояние? Да легко

Код


if (lParam and $40000000) > 0
then
  ShowMessage('нажата');

Поясняю 40000000 в 16-ти ричном представлении
01000000000000000000000000000000
т.о. мы занулили в числе все биты кроме нужного
Если число не равно нулю значит бит был таки установлен, если нет,
то 0 and 1 = 0 и все биты в полученном числе будут нулями и соответствено все число будет равно нулю.

--------------------

Ищущий!

Дата 28.6.2006, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 19.4.2005

Репутация: нет
Всего: нет

Аха.. ясно.. пасиб.. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »