Работа с джойстиком ?

joyGetDevCaps
  joySetCapture

  BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(MM_JOY1BUTTONDOWN,TMessage,UpdButton)
  MESSAGE_HANDLER(MM_JOY1BUTTONUP,TMessage,UpdButton)
  MESSAGE_HANDLER(MM_JOY1MOVE,TMessage,UpdCoord)
  END_MESSAGE_MAP(TForm)

  //-------------
  void __fastcall UpdButton(TMessage &msg);
  void __fastcall UpdCoord(TMessage &msg);
  //-------------


void __fastcall TForm1::UpdButton(TMessage &msg)
{
  Shape1->Visible = (msg.WParam &JOY_BUTTON1);//Максимальное число кнопок 32
  Shape2->Visible = (msg.WParam &JOY_BUTTON2);
  Shape3->Visible = (msg.WParam &JOY_BUTTON3);
  Shape4->Visible = (msg.WParam &JOY_BUTTON4);
  Shape5->Visible = (msg.WParam &JOY_BUTTON5);
  Shape6->Visible = (msg.WParam &JOY_BUTTON6);
  Shape7->Visible = (msg.WParam &JOY_BUTTON7);
  Shape8->Visible = (msg.WParam &JOY_BUTTON8);
  Shape9->Visible = (msg.WParam &JOY_BUTTON9);
  Shape10->Visible = (msg.WParam &JOY_BUTTON10);
  Shape11->Visible = (msg.WParam &JOY_BUTTON11);
  Shape12->Visible = (msg.WParam &JOY_BUTTON12);
}