VPF::Windows сообщения... - Форум программистов

Delphins

Дата 15.6.2006, 13:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

Вот написал такую билиотеку дял отлова сообщений. (Суть - отлов нажатия мультимедия клваиш)

Код


library HooK;
uses
  Windows, Messages;

const
  WM_NEXT_TRACK = WM_USER + 2;
  WM_PREV_TRACK = WM_USER + 3;
  //------------------------
  KEY_NEXT_TRACK = 176;
  KEY_PREV_TRACK = 177;

var
  Hk: HHook;
  Wnd: HWND;


function Proc( nCode: Integer; wParam, lParam: Integer ): Integer; stdcall;
begin
  if ( nCode = HC_ACTION ) and ( ( ( lParam shr 16 ) and KF_UP ) = 0 ) then
  begin
    Result := CallNextHookEx( Hk, nCode, wParam, lParam );
    Exit;
  end
  else
  begin
    Result := 0;
    case wParam of
      KEY_NEXT_TRACK:
        begin
          //MessageBox( wnd, 'NEXT_TRACK', 'HOOK', MB_ICONINFORMATION );
          SendMessage( Wnd, WM_PREV_TRACK, lParam, 0 );
        end;
      KEY_PREV_TRACK:
        begin
          //MessageBox( wnd, 'PREV_TRACK', 'HOOK', MB_ICONINFORMATION );
          SendMessage( Wnd, WM_PREV_TRACK, lParam, 0 );
        end;
    else
      Result := CallNextHookEx( Hk, nCode, wParam, lParam );
    end;
  end;
end;

procedure InstallHook( aHandle: HWND ); stdcall;
begin
  Wnd := aHandle;
  Hk := SetWindowsHookEx( WH_KEYBOARD, @Proc, Hinstance, 0 );
end;

procedure RemoveHook;
begin
  UnhookWindowsHookEx( Hk );
end;

exports InstallHook, RemoveHook;

begin
end.

Она ловить сообщения. Но вот либо не отсылает, либо прога моя не принимает.

Вырезка из проги:

Код


const
  WM_NEXT_TRACK = WM_USER + 2;
  WM_PREV_TRACK = WM_USER + 3;

//-------------------- CUT --------------
public
    procedure NEXT_TRACK( var msg: TMessage );  message WM_NEXT_TRACK;
    procedure PREV_TRACK( var msg: TMessage );  message WM_PREV_TRACK;

//------------------- CUT ----------------

procedure InstallHook( aHandle: HWND ); external 'hook.dll';
procedure RemoveHook; external 'hook.dll';
//------------------- CUT ----------------

  InstallHook( Frm_Main.Handle ); // В OnCreate находится.

//------------------- CUT ----------------

procedure TFrm_Main.NEXT_TRACK( var msg: TMessage );
begin
  ShowMessage( 'NEXT TRACK' ); // debug
  if Tb_Next.Enabled then  Tb_Next.Click
end;

procedure TFrm_Main.PREV_TRACK( var msg: TMessage );
begin
  ShowMessage( 'PREV TRACK' ); // debug
  if Tb_Previous.Enabled then Tb_Previous.Click
end;

Для проверки поставил вызов сообщения. Не вызывается.
Че не так? smile

Alexeis

Дата 15.6.2006, 13:59 (ссылка)

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

Загрузка ...

Амеба

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

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

Попробуйте зарегистрировать сообщения перед тем как их отсылать

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

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

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

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

Дата 15.6.2006, 14:12 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Delphins, Дык самое главное не показал, как ты ловиш сообщения от длл ?.

Delphins

Дата 15.6.2006, 18:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

2 код ловит.

Rouse_

Дата 16.6.2006, 13:08 (ссылка)

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

Загрузка ...

Опытный

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

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

Вот эти две переменные будут неинициализированными при загрузке в чужое адресное пространство (обнулены)

Код


  Hk: HHook;
  Wnd: HWND;

Соотвественно вот это не отработает:

Код


CallNextHookEx( Hk, nCode, wParam, lParam );

и вот это сообщение уйдет в небо:

Код


SendMessage( Wnd, WM_PREV_TRACK, lParam, 0 );

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

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Damarus

Дата 17.6.2006, 21:16 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 671
Регистрация: 6.5.2006

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

Rouse_, CallNextHookEx игнорирует первый параметор.

Delphins, лучше использовать не SendMessage, а PostMessage + совет Rouse_'а.

bems

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

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Цитата(Damarus @ 17.6.2006, 21:16

)

CallNextHookEx игнорирует первый параметор.

только начиная с 2К

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

Обижено школьников: 8

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