Leer pulsos de JoyStick

[oniacziv]

Buen día
Necesito leer los pulsos de un joystick tengo código para leer teclado y ratón

Código Delphi [-]
void __fastcall TFPrincipal::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
       switch(Msg.message){
        case WM_KEYDOWN:
        case WM_MBUTTONDOWN:
        case WM_LBUTTONDOWN:
        case WM_RBUTTONDOWN:
        if(Msg.wParam == 2 ){
         
           }
        if(Msg.wParam == 1){
           
           }
        break;
        break;
        break;
        break;

        case WM_KEYUP:
        case WM_MBUTTONUP:
        case WM_LBUTTONUP:
        case WM_RBUTTONUP:
          
         if(Msg.wParam == 17){
               
                   }
            else {
                   
                      }

             if(Msg.wParam == 78){
                
                }
            
        break;
    }
}
//---------------------------------------------------------------------------

[[escafandra]]

Mira a ver si esto te orienta.

Saludos.

[oniacziv]

Para mi queda asi y me es funcional para lo que necesito espero que también le sirva a alguien mas... Gracias por la orientación Escafandra

Se incluye mmsystem.h

Código Delphi [-]
//---------------------------------------------------------------------------

#include 
#include 
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  if(joySetCapture(Handle, JOYSTICKID1, 0, true) != 0)
    ShowMessage("No se puede capturar el Joystick");
}
//---------------------------------------------------------------------------
/*void __fastcall TForm1::JOY1ButtonDown(TMessage Message){
  ShowMessage("Se ha pulsado un botón del Joystick");
} */
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  joyReleaseCapture(JOYSTICKID1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{

  switch(Msg.message){
    case MM_JOY1BUTTONDOWN:
      Caption = Msg.wParam;
    break;
    case MM_JOY1ZMOVE:
      Caption = Msg.lParam;
    break;
    case MM_JOY1MOVE:
      Caption = Msg.lParam;
    break;
    case MM_JOY1BUTTONUP:
    Caption = Msg.wParam;
    break;
  }
}
//---------------------------------------------------------------------------