🚀 go-pugleaf

  MMRESULT jr;
  int jnum;
  JOYINFOEX JoyInfo;
  JOYCAPS JoyCaps;
  bool connect;

  MemoLOG->Lines->Add(AnsiString("Nro JoyStick Suportados pelo Driver: ")+
AnsiString(joyGetNumDevs()));

  if(joyGetNumDevs()!=0)
  {
    connect=false;
    jr = joyGetPosEx(JOYSTICKID1,&JoyInfo);
    if (jr ==JOYERR_NOERROR)
    {
      connect=true;
      jnum=JOYSTICKID1;
    }
    else
    {
      if (jr == MMSYSERR_INVALPARAM)
        ShowMessage("MMSYSERR_INVALPARAM");
      else
        if((jr=joyGetPosEx(JOYSTICKID2,&JoyInfo)) == JOYERR_NOERROR)
        {
          connect = true;
          jnum= JOYSTICKID2;
        }
    }
  }
  jr = joyGetDevCaps(jnum,&JoyCaps, sizeof(JOYCAPS));
  if (connect)
  {
    MemoLOG->Lines->Add("JOYSTICK CONNECTED.") ;
    MemoLOG->Lines->Add("JOYSTICK ID: "+ IntToStr(jnum));
    MemoLOG->Lines->Add("Product Name: " + AnsiString(JoyCaps.szPname));
    MemoLOG->Lines->Add("Nro Nuttons: " +   IntToStr(JoyCaps.wNumButtons));
  }
  else
  {
    MemoLOG->Lines->Add("JOYSTICK NOT CONNECTED.");
  }
<JS Trop> escreveu na mensagem news:40e3fe01$1@newsgroups.borland.com...
>
//==========================================================================
> ====
> /*!
>  * \fn     bool IsJoystickAttached(unsigned int JSNo);
>
>  * \brief  This function returns true if the specified joystick is
available
>            ie. attached to the computer.
>
>  * \param  unsigned int JSNo : (input) Joystick number
>
>  * \sa     ...
>  Example :
>           int MyJoystickNo = 2;
>           if (AFDAS::GetIPAdr(NULL,&IPAdr)){
>              Memo1->Lines->Add(AnsiString(inet_ntoa(IPAdr)));
>           }
>  */
>
>
//==========================================================================
> ====
>
>
> bool IsJoystickAttached(unsigned int JSNo)
> {
>
>   if (Joystick JSNo is attached) //// How to test if Joystick JSNo is
> attached
>      return true;
>   else
>      return false;
> }
>
>
>
>
>
>