VPF::Отловить WM_RBUTTONDBLCLK в чужом приложении

_snikers_

Дата 29.5.2006, 21:38 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет всем! проблемка следующая:
WM_RBUTTONDBLCLK НЕ РАБОТАЕТ при установке хука на мышь.... windows 98....
не понятно почему... ставлю хук

Код


HookHandle:=SetWindowsHookEx(WH_JOURNALRECORD,@HookProc,HInstance,0);

потом ловим:

Код


function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall; 
var 
 msg: PEVENTMSG; 
begin 
 if Code >= 0 then begin 
   result := 0; 
   msg := Pointer(LParam); 
   with Form1 do
     case msg.message of 
       WM_RBUTTONDBLCLK: 
          BEGIN
          ...................
          END;
     end; 
 end else 
   result := CallNextHookEx(HookHandle, code, WParam, LParam); 
end;

помогите плиз... время поджимает

dvamaster

Дата 10.6.2006, 12:52 (ссылка)

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

Загрузка ...

Опытный

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

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

Попробуй так

Код


HookHandle:=SetWindowsHookEx(WH_MOUSE,@HookProc,HInstance,0);

Код


function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall; 
var 
 msg: Word; 
begin 
 if Code >= 0 then begin 
   result := 0; 
   msg := WParam; 
   with Form1 do
     case msg.message of 
       WM_RBUTTONDBLCLK: 
          BEGIN
          ...................
          END;
     end; 
 end else 
   result := CallNextHookEx(HookHandle, code, WParam, LParam); 
end;

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

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

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