#include <mmsystem.h>
//------------------------------------------------
{
  MMRESULT jr;
  JOYINFOEX JoyInfo;
  int joycount = joyGetNumDevs();
  if(joycount = 0)
  {
    Memo1->Lines->Add("Драйверы джойстика не установлены");
  }
  else
  {
    connect = false;
    jr = joyGetPosEx(JOYSTICKID1,&JoyInfo);
    if(jr == JOYERR_NOERROR)
    {
      connect = true;
      jnum = JOYSTICKID1;
    }
    else
    if(jr == MMSYSERR_INVALPARAM)
    {
      ShowMessage("Ошибка определения наличия джойстика");
    }
    else
    jr = joyGetPosEx(JOYSTICKID2,&JoyInfo);
    if(jr == JOYERR_NOERROR)
    {
      connect = true;
      jnum = JOYSTICKID2;
    }
  }
  joyGetDevCaps(jnum, &JoyCaps, sizeof(JOYCAPS));
  if(connect)
  {
    Memo1->Lines->Add("Джойстик подключен");
    Memo1->Lines->Add("Номер устройства -  "+ IntToStr(jnum));
    Memo1->Lines->Add("Наименование - " + AnsiString(JoyCaps.szPname));
    Memo1->Lines->Add("Число кнопок - " +   IntToStr(JoyCaps.wNumButtons));
  }
  else
  {
    Memo1->Lines->Add("Джойстик не подключен");
  }
  if(connect)
  joySetCapture(Handle,jnum,2*JoyCaps.wPeriodMin,FALSE);
}