Joystick - usando um

Top  Previous  Next

uses 

  MMSYSTEM; 

 

var 

  MyJoy: TJoyInfo; 

  ErrorResult: MMRESULT; 

begin 

  ErrorResult := joyGetPos(joystickid1, @MyJoy); 

  if ErrorResult = JOYERR_NOERROR then 

  begin 

    TrackBar1.Position := MyJoy.wypos; 

    TrackBar2.Position := MyJoy.wxpos; 

    RadioButton1.Checked := (MyJoy.wbuttons and joy_button1) > 0

    RadioButton2.Checked := (MyJoy.wbuttons and joy_button2) > 0

  end  

else 

   case ErrorResult of 

     MMSYSERR_NODRIVER: ShowMessage('No Joystick driver present'); 

     MMSYSERR_INVALPARAM: ShowMessage('Invalid Joystick Paramameters'); 

     JOYERR_UNPLUGGED: ShowMessage('Joystick is Unplugged'); 

   else  

ShowMessage('Unknown error with Joystick'); 

 end

 

end