unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, RawInput_h, AppEvnts, StdCtrls, ExtCtrls;

const
 ENUMERATE_EXISTING_MICE=0;
 MAX_DEVICES=2;
 MAX_DEVICEID_LEN=2048;

type
 TForm1 = class(TForm)
   Memo1: TMemo;
   ApplicationEvents1: TApplicationEvents;
   procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

type
 RAW_INPUT_DATA = record
   num_mice:      integer;
   AMouseHandle:  array[0..MAX_DEVICES] of THandle;
   AMouseID:      array[0..MAX_DEVICES,0..MAX_DEVICEID_LEN] of Cardinal;
   dataBuf:       Pointer;
   data_buf_size: WORD;
 end;

 TMouse_Info=record
   mouse:     integer;
   mouseData: ^RAWMOUSE;
 end;

 const
  WM_INPUT = WM_KEYFIRST-1;

var
 Form1: TForm1;
 rid:   RAW_INPUT_DATA;
 mInfo: TMouse_Info;

implementation

{$R *.dfm}

function FindMouseNum(hdevice:THandle):integer;
var
 i,j,k:   integer;
 DevName: array[0..MAX_DEVICEID_LEN] of Cardinal;
 max:     cardinal;
begin
 max:=2048;
 for i:=0 to rid.num_mice-1 do
   if rid.AMouseHandle[i] = hdevice then
     begin
       if rid.AMouseID[i,0] = 0 then
         GetRawInputDeviceInfo(hDevice, RIDI_DEVICENAME, @rid.AmouseID[i], max);
       result:=i;
       exit;
     end;
 GetRawInputDeviceInfo(hDevice, RIDI_DEVICENAME, @DevName, max);
 for i:=0 to rid.num_mice-1 do
   begin
     k:=0;
     for j:=0 to MAX_DEVICEID_LEN do
       if DevName[j] = rid.AmouseID[i,j] then
         inc(k);
     if k >= MAX_DEVICEID_LEN then
       begin
         rid.AMouseHandle[i]:=hdevice;
         result:=i;
         exit;
       end;
   end;
 if rid.num_mice < MAX_DEVICES then
   begin
     for j:=0 to MAX_DEVICEID_LEN do
       rid.AmouseID[rid.num_mice,j]:=devName[j];
     rid.AMouseHandle[rid.num_mice]:=hDevice;
     rid.num_mice:=rid.num_mice+1;
     result:=rid.num_mice-1;
     exit;
   end;
 result:=-1;
end;

procedure RawInputInit;
var
 nDevices: Cardinal;
 pRawIn:   PRAWINPUTDEVICELIST;
 hRawIn:   array[1..100] of RAWINPUTDEVICELIST;
 rawInDev: RAWINPUTDEVICE;
begin
 rid.dataBuf:=nil;
 rid.data_buf_size:=0;
 if GetRawInputDeviceList(nil, nDevices, sizeof(RAWINPUTDEVICELIST)) <> 0 then
   showMessage('Error 1');
 pRawIn:=nil;
 pRawIn:=@hRawIn;
 if GetRawInputDeviceList(pRawIn, nDevices, sizeof(RAWINPUTDEVICELIST)) = -1 then
   showMessage('Error 2');
 rid.num_mice:=0;
 rawInDev.usUsagePage:=1;
 rawInDev.usUsage:=2;
 rawInDev.dwFlags:=0;
 rawInDev.hwndTarget:=0;
 RegisterRawInputDevices(@rawInDev,1,sizeOf(rawInDev));
end;

function HandleWMInput(wnd:HWND; lPar:LPARAM):TMouse_Info;
var
 Raw:    RAWINPUT;
 dwSize: UINT;
 res:    TMouse_Info;
 hRawIn: HRAWINPUT;
 pRawIn: PRAWINPUT;
 mouse:  integer;
begin
 res.mouse:=-1;
 res.mouseData:=nil;
 hRawIn:=lPar;
 GetRawInputData(hRawIn,RID_INPUT, nil, dwSize, sizeof(RAWINPUTHEADER));
 if dwSize = 0 then
   showMessage('Can not allocate memory');
 New(pRawIn);
 if GetRawInputData(hRawIn,RID_INPUT,pRawIn,dwSize,sizeof(RAWINPUTHEADER)) <> dwSize then
   showMessage('GetRawInputData doesn''t return correct size !');
 raw:=pRawIn^;
 res.mouse:=-1;
 if raw.header.dwType = RIM_TYPEMOUSE then
   begin
     mouse:=FindMouseNum(raw.header.hDevice);
     res.mouse:=mouse;
     res.mouseData:=@raw.mouse;
     result:=res;
   end;
end;

function GetInfo(wnd:HWND; lPar:LPARAM):TMouse_Info;
begin
 result:=HandleWMInput(wnd,lpar);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 RawInputInit;
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
 m: TMouse_Info;
 p: TPoint;
begin
 if msg.message = WM_INPUT then
   begin
     m:=GetInfo(msg.hwnd,msg.lParam);
     Memo1.Lines.Add('Aktivna mishka : '+intToStr(m.mouse));
     if m.mouse = 1 then
     begin
//*** Работает мышь 1
     end
     else
     begin
       if m.mouse = 0 then
       begin
//*** Работает мышь 0
       end;
     end;
   end;
end;

end.

function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var
 m: TMouse_Info;
 Msg: TMsg;
begin
   msg := TMsg(Pointer(lParam)^);
   m:=GetInfo(msg.hwnd,msg.lParam);
   bit.Canvas.TextOut(10,10,'mouse: '+inttostr(m.mouse)+' | WND: '+inttostr(wparam)+' | Lparam: '+inttostr(lparam));
 Result:= CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;

 SetCursorPos(X, Y);
 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)