CONTROLER SOURIS AVEC VOTRE MANETTE

Armkreuz_Spiderz Messages postés 61 Date d'inscription mercredi 23 juin 2004 Statut Membre Dernière intervention 27 décembre 2008 - 19 août 2004 à 13:47
jex03 Messages postés 1 Date d'inscription dimanche 21 janvier 2007 Statut Membre Dernière intervention 4 février 2010 - 4 févr. 2010 à 14:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/25445-controler-souris-avec-votre-manette

jex03 Messages postés 1 Date d'inscription dimanche 21 janvier 2007 Statut Membre Dernière intervention 4 février 2010
4 févr. 2010 à 14:38
bonjour , je suis newbie en prog, ce code m'intéresse mais je ne sais pas du tout comment exploiter les fichier mis a dispositions.Si quelqu'un peut me donner un coup de pouce ! merci
cs_costello Messages postés 136 Date d'inscription lundi 2 septembre 2002 Statut Membre Dernière intervention 15 février 2006
28 mars 2007 à 00:08
malheureusement ce code ne passe pas avec une manette XBOX 360 (branchée en USB)
la manette fonctionne normalement dans les jeux.
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
31 août 2005 à 14:45
Pour un mode en position absolue, voici un bout de code tiré des travaux de Armkreuz_Spiderz :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if RadioButton1.Checked then JoyID:=JOYSTICKID1
else JoyID:=JOYSTICKID2;

InfoJoystick.dwSize:=SizeOf(InfoJoystick);
InfoJoystick.dwFlags:= JOY_RETURNALL;
Result := joyGetPosEx(JoyID, @InfoJoystick);
GetCursorPos(mousept);

mouseXlabel.Caption := FloatToStr(mousept.X);
mouseYlabel.Caption := FloatToStr(mousept.Y);
joyXlabel.Caption := IntToStr(InfoJoystick.wXpos);
joyYlabel.Caption := IntToStr(Infojoystick.wYpos);

SetCursorPos(Screen.Width * InfoJoystick.wXpos div 65535, Screen.Height * InfoJoystick.wYpos div 65535);

case InfoJoystick.wButtons of
JOY_BUTTON1:
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
JOY_BUTTON2:
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end
end;
end;

Par contre, le clic sur le joystick est double :(
Armkreuz_Spiderz Messages postés 61 Date d'inscription mercredi 23 juin 2004 Statut Membre Dernière intervention 27 décembre 2008
19 août 2004 à 13:51
...
Armkreuz_Spiderz Messages postés 61 Date d'inscription mercredi 23 juin 2004 Statut Membre Dernière intervention 27 décembre 2008
19 août 2004 à 13:47
...