Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Отловить WM_RBUTTONDBLCLK в чужом приложении

Автор: _snikers_ 29.5.2006, 21:38

Привет всем! проблемка следующая:
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

Попробуй так

Код


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;