Utiliser le Joystick

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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour02/02/2002
VisualisationVu 1779 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Multimedia
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur