procedure WmInput(var Mess: TMessage); message WM_INPUT;

const
  PW_CLIENTONLY               = $00000001;
  RIM_INPUT                   = $00000000;
  RIM_INPUTSINK               = $00000001;
  RIM_TYPEMOUSE               = $00000000;
  RIM_TYPEKEYBOARD            = $00000001;
  RIM_TYPEHID                 = $00000002;
  MOUSE_MOVE_RELATIVE         = $00000000;
  MOUSE_MOVE_ABSOLUTE         = $00000001;
  MOUSE_VIRTUAL_DESKTOP       = $00000002;
  MOUSE_ATTRIBUTES_CHANGED    = $00000004;
  RI_MOUSE_LEFT_BUTTON_DOWN   = $0001;
  RI_MOUSE_LEFT_BUTTON_UP     = $0002;
  RI_MOUSE_RIGHT_BUTTON_DOWN  = $0004;
  RI_MOUSE_RIGHT_BUTTON_UP    = $0008;
  RI_MOUSE_MIDDLE_BUTTON_DOWN = $0010;
  RI_MOUSE_MIDDLE_BUTTON_UP   = $0020;
  RI_MOUSE_BUTTON_1_DOWN      = RI_MOUSE_LEFT_BUTTON_DOWN;
  RI_MOUSE_BUTTON_1_UP        = RI_MOUSE_LEFT_BUTTON_UP;
  RI_MOUSE_BUTTON_2_DOWN      = RI_MOUSE_RIGHT_BUTTON_DOWN;
  RI_MOUSE_BUTTON_2_UP        = RI_MOUSE_RIGHT_BUTTON_UP;
  RI_MOUSE_BUTTON_3_DOWN      = RI_MOUSE_MIDDLE_BUTTON_DOWN;
  RI_MOUSE_BUTTON_3_UP        = RI_MOUSE_MIDDLE_BUTTON_UP;
  RI_MOUSE_BUTTON_4_DOWN      = $0040;
  RI_MOUSE_BUTTON_4_UP        = $0080;
  RI_MOUSE_BUTTON_5_DOWN      = $0100;
  RI_MOUSE_BUTTON_5_UP        = $0200;
  RI_MOUSE_WHEEL              = $0400;
  KEYBOARD_OVERRUN_MAKE_CODE  = $00ff;
  RI_KEY_MAKE                 = $0000;
  RI_KEY_BREAK                = $0001;
  RI_KEY_E0                   = $0002;
  RI_KEY_E1                   = $0004;
  RI_KEY_TERMSRV_SET_LED      = $0008;
  RI_KEY_TERMSRV_SHADOW       = $0010;
  RID_INPUT                   = $10000003;
  RID_HEADER                  = $10000005;
  RIDI_PREPARSEDDATA          = $20000005;
  RIDI_DEVICENAME             = $20000007;
  RIDI_DEVICEINFO             = $2000000b;
  RIDEV_REMOVE                = $00000001;
  RIDEV_EXCLUDE               = $00000010;
  RIDEV_PAGEONLY              = $00000020;
  RIDEV_NOLEGACY              = $00000030;
  RIDEV_INPUTSINK             = $00000100;
  RIDEV_CAPTUREMOUSE          = $00000200;
  RIDEV_NOHOTKEYS             = $00000200;
  RIDEV_APPKEYS               = $00000400;
  RIDEV_EXINPUTSINK           = $00001000;
  RIDEV_DEVNOTIFY             = $00002000;
  RIDEV_EXMODEMASK            = $000000F0;

type
  TRAWINPUTHEADER =
    packed record
      dwType  : DWORD;
      dwSize  : DWORD;
      hDevice : THANDLE;
      wParam  : WPARAM;
    end;
  PRAWINPUTHEADER = ^TRAWINPUTHEADER;

  TRMBUTTONS =
    packed record
      case Integer of
        0:(ulButtons: ULONG);
        1:(
            usButtonFlags : SHORT;
            usButtonData  : SHORT;
          );
      end;

  TRAWMOUSE =
    packed record
      usFlags            : SHORT;
      RMButtons          : TRMBUTTONS;
      ulRawButtons       : ULONG;
      lLastX             : LongInt;
      lLastY             : LongInt;
      ulExtraInformation : ULONG;
    end;
  PRAWMOUSE = ^TRAWMOUSE;

  TRAWKEYBOARD =
    packed record
      MakeCode         : SHORT;
      Flags            : SHORT;
      Reserved         : SHORT;
      VKey             : SHORT;
      Mess             : UINT;
      ExtraInformation : ULONG;
    end;
  PRAWKEYBOARD = ^TRAWKEYBOARD;

  TRAWHID =
    packed record
      dwSizeHid : DWORD;
      dwCount   : DWORD;
      bRawData  : BYTE;
    end;
  PTRAWHID = ^TRAWHID;

  TRAWINPUTDATA =
    packed record
      case Integer of
        0:(mouse    : TRAWMOUSE   );
        1:(keyboard : TRAWKEYBOARD);
        2:(hid      : TRAWHID     );
      end;

  TRAWINPUT =
    packed record
      header    : TRAWINPUTHEADER;
      data      : TRAWINPUTDATA;
    end;
  PRAWINPUT = ^TRAWINPUT;

function GetRawInputData(hRawInput: Pointer; uiCommand:UINT; pData: Pointer; pcbSize: Pointer; cbSizeHeader: UINT): UINT;
 stdcall; external 'user32.dll';

procedure Tmain_form.WmInput(var Mess: TMessage);
var
  i, l: Integer;
  RI: PRAWINPUT;
  dwSize: UINT;
  lpb: PBYTE;
  DataSize: DWORD;
  HID_DATA: array [0..15] of DWORD;
  P: PByte;
begin
  GetRawInputData(PRAWINPUT(Mess.LParam), RID_INPUT, nil, @dwSize,SizeOf(TRAWINPUTHEADER));
  if dwSize = 0 then
    Exit;
  DataSize := SizeOf(BYTE) * dwSize;
  GetMem(lpb,DataSize);
  try
    GetRawInputData(PRAWINPUT(Mess.LParam), RID_INPUT, lpb, @dwSize, SizeOf(TRAWINPUTHEADER));
    RI := PRAWINPUT(lpb);
    case RI.header.dwType of
      // マウス
      RIM_TYPEMOUSE:
        begin
          Label1.Caption := Format('Mouse : (%d:%d) %.2x', 
                                   [RI.Data.mouse.lLastX,
                                    RI.Data.mouse.lLastX,
                                    RI.Data.mouse.RMButtons.usButtonData]);
        end;
      // キーボード
      RIM_TYPEKEYBOARD:
        begin
          Label1.Caption := Format('KeyBoard : %.2x', [RI.Data.keyboard.VKey]);
        end;
      // HID準拠デバイス
      RIM_TYPEHID:
        begin
          P := @RI.Data.hid.bRawData;
          for i:=0 to RI.Data.hid.dwCount-1 do
            begin
              HID_DATA[i] := 0;
              for l:=1 to RI.Data.hid.dwSizeHid do
                begin
                  HID_DATA[i] := (HID_DATA[i] shl 8) + P^;
                  Inc(P);
                end;
            end;
          Label1.Caption := '';
          for i:=0 to RI.Data.hid.dwCount-1 do
            Label1.Caption := Label1.Caption + Format('HID[%d] : %x',[i+1, HID_DATA[i]]);
        end;
    end;
  finally
    FreeMem(lpb, DataSize);
  end;
end;