Delphi - le clic de la souris fait des siennes

Delphi - le clic de la souris fait des siennes - Delphi/Pascal - Programmation

Marsh Posté le 10-02-2014 à 01:43:18    

Bonjour
 
Je suis débutant (je programme de temps en temps) et je viens vers vous pour un conseil
j'ai développé une petite application qui simule un clic (pendant que je mange) avec le code ci dessous (récupéré sur le net)
cela marche au poil sur ma tour et je viens de m'offrir un portable pour la première fois. Là cela ne fonctionne pas.  
Meme OS (windows 8), tout fonctionne sauf le clic simulé. Ignorant des en ce qui concerne les portables et devant bientôt me déplacer avec mon portable
je suis un peu frustré. Je sais qu il y a des auto clic sur le net mais j'aime programmer quand je peux. une idée svp ? merci d'avance.  
 
 
var
  MyPoint: TPoint;
begin
  GetCursorPos(MyPoint);
  {Récupère la position du curseur }
  SetCursorPos(100, 200);
  {Positionne le curseur sur la fiche }
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  {Simule l'action de clic du bouton gauche de la souris }
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  {Simule l'action de relâcher du bouton gauche de la souris }
  SetCursorPos(MyPoint.X, MyPoint.Y);
  {Repositionne le curseur à sa position d'origine }

Reply

Marsh Posté le 10-02-2014 à 01:43:18   

Reply

Marsh Posté le 11-02-2014 à 15:38:41    

Quequ'un à une piste au moins ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed