Hola
bueno, la solucion que encontre fue esta:
en el evento OnTimer de un Timer puse este codigo
Código Delphi
[-]
var
MyJoy: TJoyInfo;
ErrorResult: MMRESULT;
begin
ErrorResult := joyGetPos(joystickid1, @MyJoy);
if ErrorResult = JOYERR_NOERROR then begin
if (MyJoy.wbuttons and JOY_BUTTON1) > 0 then
ShowMessage('Boton 1 presionado');
if (MyJoy.wbuttons and JOY_BUTTON2) > 0 then
ShowMessage('Boton 2 presionado');
if (MyJoy.wbuttons and JOY_BUTTON3) > 0 then
ShowMessage('Boton 3 presionado');
if (MyJoy.wbuttons and JOY_BUTTON4) > 0 then
ShowMessage('Boton 4 presionado');
if (MyJoy.wbuttons and JOY_BUTTON5) > 0 then
ShowMessage('Boton 5 presionado');
if (MyJoy.wbuttons and JOY_BUTTON6) > 0 then
.......
.......
.......
end
else begin
Timer1.Enabled := False;
ShowMessage('¡¡ JoyStick Error !!');
end;
Gracias por la ayuda !