Ловля боковых кнопок Мыши по всему экрану

[Spawn.Ivan]

Здравствуйте. Когда бродил по просторам интернета я нашел вот это:

type
  TForm1 = class(TForm)
  procedure WMXButtonDown( var Message: TWMMouse); message WM_XBUTTONDOWN;


const
{$ifdef COMPILER_13_UP} // WM_XBUTTON* уже объявлены в D2010
      WM_XBUTTONDOWN = $020B; // сообщение о нажатии X button
      WM_XBUTTONUP = $020C;   // сообщение об отпускании X button
{$endif}
      MK_XBUTTON1 = $20;      // идентификатор клавиши "назад" в LoWord(WParam)
      MK_XBUTTON2 = $40;      // идентификатор клавиши "вперёд" в LoWord(WParam)
      XBUTTON1 = $1;          // код клавиши "назад" в HiWord(WParam)
      XBUTTON2 = $2;          // код клавиши "вперёд" в HiWord(WParam)

...

// Боковые кнопки---------------------------------------------------------------------
procedure TForm1.WMXButtonDown(var Message: TWMMouse);
var Msg: PEVENTMSG; 
begin
  // удостоверяемся, что нажата Х кнопка
  if Message.Keys and (MK_XBUTTON1 or MK_XBUTTON2) <> 0 then
  begin 
    // определяем, какая именно Х кнопка нажата и действуем соответственно
   case HiWord(Message.Keys) of
     XBUTTON1 : Form1.Memo1.Lines.Add('Back');
      XBUTTON2 : Form1.Memo1.Lines.Add('Fwd');
      else       ShowMessage('Err');
    end;


    end;


  end;
//------------------------------------------------------------------------------

Он позволяет определить что была нажата одна из X кнопок мыши.
Подскажите пожалуйста как его заставить работать в любом чужом окне и по всему рабочему пространству.

При определении 1,2,3-й кнопок я разобрался как. Но тут не получается... Помогите =)

[Miha85193]

Вся проблема в том, что автор не мог или не хотел изложить задачу компилятору в более доступной форме. Перемудрил одни словом). Вся ошибка в условии.

Вот так должно работать:

if (Message.Keys = MK_XBUTTON1) or (Message.Keys = MK_XBUTTON2) then

[Spawn.Ivan]

Miha85193,

Вот так должно работать:
if (Message.Keys = MK_XBUTTON1) or (Message.Keys = MK_XBUTTON2) then

А так вапще ничего не работает =)

[Miha85193]

пардон, ошибся)

попробуй вот так:

if (Message.Keys and (MK_XBUTTON1 or MK_XBUTTON2)) <> 0 then

или так:

if ((Message.Keys and MK_XBUTTON1) <> 0) or ((Message.Keys and MK_XBUTTON2) <> 0) then

[Spawn.Ivan]

Нашел проблему.. надо так:

if (loword(Message.Keys) = MK_XBUTTON1) or (loword(Message.Keys) = MK_XBUTTON2)then

Но работает ТОЛЬКО внутри моей проги... А мне надо снаружи чтобы ловило...

Miha85193,

или так:

if ((Message.Keys and MK_XBUTTON1) <> 0) or ((Message.Keys and MK_XBUTTON2) <> 0) then

Так работает, но опять же только внутри...


Подскажи пожалуйста как это сделать ))

[Miha85193]

Сообщение от Spawn.Ivan

Miha85193,


Так работает, но опять же только внутри...


Подскажи пожалуйста как это сделать ))

а за пределами окна TForm1 ловит нажатия (когда окно приложения в фокусе)?

[Spawn.Ivan]

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

а за пределами окна TForm1 ловит нажатия (когда окно приложения в фокусе)?

Вот это я и хочу сделать... Чтобы ловил за пределами формы..

[Miha85193]

так походу приложение теряет фокус при нажатии кнопок мышки за пределами окна. а когда главное окно приложения не в фокусе, оно "спит".

type
TForm1 = class(TForm)
procedure WMXButtonDown( var Message: TWMMouse); message WM_XBUTTONDOWN;

из самого кода следует, что нельзя решить проблему этим путем.

[Spawn.Ivan]

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

из самого кода следует, что нельзя решить проблему этим путем.

А можно как-нить вапще решить эту проблему? или тоже самое сделать но чтобы не только в форме работало?

Вот весь код программы:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
     procedure WMXButtonDown( var Message: TWMMouse); message WM_XBUTTONDOWN;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; HookHandle: HHook;

implementation

{$R *.dfm}
 const
{$ifdef COMPILER_13_UP} // WM_XBUTTON* уже объявлены в D2010
      WM_XBUTTONDOWN = $020B; // сообщение о нажатии X button
      WM_XBUTTONUP = $020C;   // сообщение об отпускании X button
{$endif}
      MK_XBUTTON1 = $20;      // идентификатор клавиши "назад" в LoWord(WParam)
      MK_XBUTTON2 = $40;      // идентификатор клавиши "вперёд" в LoWord(WParam)
      XBUTTON1 = $1;          // код клавиши "назад" в HiWord(WParam)
      XBUTTON2 = $2;          // код клавиши "вперёд" в HiWord(WParam)
//Ищем хэндл по имени окна -------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var h: Thandle;
begin
h:=FindWindow(nil,PChar(edit1.text));
label1.Caption:=inttostr(h);
end;
//--------------------------------------------------------------------------------

 // ХУК --------------------------------------------------------------------------
Function HookProc(Code: Integer; WParam: Word; LParam: Longint): Longint; Stdcall;
Var
Msg: PEVENTMSG;
Begin
If Code>=0 Then
Begin
Msg:=Pointer(LParam);
Case Msg.message Of
WM_LBUTTONDOWN: Form1.Memo1.Lines.Add('L-mouse');
WM_RBUTTONDOWN: Form1.Memo1.Lines.Add('R-mouse');
WM_MBUTTONDOWN: Form1.Memo1.Lines.Add('middle');
End;
End;
End;
//--------------------------------------------------------------------------------

procedure TForm1.FormCreate(Sender: TObject);
begin
HookHandle:=SetWindowsHookEx(WH_JOURNALRECORD,@HookProc,HInstance,0);
end;

// Боковые кнопки---------------------------------------------------------------------
procedure TForm1.WMXButtonDown(var Message: TWMMouse);
begin
  // удостоверяемся, что нажата Х кнопка
 if ((Message.Keys and MK_XBUTTON1) <> 0) or ((Message.Keys and MK_XBUTTON2) <> 0) then
  begin
    // определяем, какая именно Х кнопка нажата и действуем соответственно
   case HiWord(Message.Keys) of
     XBUTTON1 : Form1.Memo1.Lines.Add('Back');
      XBUTTON2 : Form1.Memo1.Lines.Add('Fwd');
      else       ShowMessage('Err');
    end;


    end;


  end;
//------------------------------------------------------------------------------

end.

И вот когда я наживаю на 1,2, и 3-ю кнопку на мышке - кнопки определяются по всему экрану... Форма выходит из фокуса но все работает... Я понимаю вроде почему но не могу тоже самое сделать и тут...

[Кольша]

Искал решение, на форумах не нашел.
Может кому пригодится.

function MouseProc(const nCode: Integer; const wParam, lParam: Longint)
  : LRESULT; stdcall;
Var
  Msg: PEVENTMSG;
begin
  result := CallNextHookEx(0, nCode, wParam, lParam);
  Msg := Pointer(lParam);
  if (nCode = HC_ACTION) then
    case Msg.paramH of
      65536:
        //forward
      131072:
        //back
    end;

end;