Discussion :

[Lecerf]

Bonjour, j'ai besoin de faire le test suivant :
Je voudrais savoir si avec un test sous Delphi, il est possible de savoir si un bouton a été enfoncé, dans un programme quelconque.

Par exemple, je prends calc.exe lancé, et avec mon prog sous delphi, je voudrais qu'il affiche un message par ex, si le bouton 9 est enfoncé.

J'ai déjà testé la fonction EnumWindowsProc pour trouver la bonne fenêtre, mais je ne sais pas accéder aux boutons hérités.

Merci

[Pero]

Je pense que le minimum est de connaitre le handle du bouton à surveiller. Sans cela je ne pense pas que tu iras loin. Une fois ce handle connu, il faudrait voir du côté des hooks qui permettraient de catcher les messages destinés à ce bouton et d'y répondre comme tu le veux.

C'est tout ce que je peux dire.

[Sub0]

Voici un code permettant de capturer la position absolue et l'état des boutons de la souris dans tous les programmes, et ceci sans hook.

http://sub0.developpez.com/delphi/mouse.zip

Utilise la fonction PtInRect pour savoir si le curseur de la souris se trouve dans l'espace du bouton. Il existe sûrement une fonction permettant d'obtenir des infos sur l'objet survolé par la souris (ControlAtPos, WindowFromPoint, etc...).

Sinon, regarde cette source, elle devrait te permettre d'obtenir ce que tu veux, c'est-à-dire, soit la position et les dimensions du bouton, soit son handle...

http://nono40.developpez.com/sources/source0061/


Lien tout en bas à gauche de cette fenêtre

[jouaud bernard]

Salut,

et avec ca...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Timer1Timer(Sender: TObject);
var
  p:Tpoint;
  h1:HWnd;
  t1:Array[0..255] of Char;
  t2:Array[0..255] of Char;
  g1:tagwndclassA;
begin
 
  windows.GetCursorPos(p);
  Label1.Caption:=IntToStr(p.x);
  Label2.Caption:=IntToStr(p.y);
  h1:=Windows.WindowFromPoint(p);
  Windows.GetClassName(h1,t1,255);
  windows.GetWindowText(h1,t2,255);
  windows.GetClassInfo(h1,t1,g1);
 
  If T1='Button' then
   begin
    Label1.Caption:='Et un Bouton'+ ' '+t2;
   end
  else
    Label1.Caption:=' ' ;
end;

_________________
Balises [CODE] rajoutées par Sub0

[Pero]

Chez moi ca marche à moitié. Disons que sur les boutons de la calculatrice cela fonctionne. Par contre si je mets des boutons sur une form de Delphi, RIEN : : :

[jouaud bernard]

Salut,

ho desoler et 1000 excuse...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If T1='Button' then 
   begin 
    Label3.Caption:='Et un Bouton'+ ' '+t2; 
   end 
  else 
    Label3.Caption:=' ' ;

_________________
Balises [CODE] rajoutées par Sub0

[Sub0]

Salut,

et avec ca...

Je viens de tester ton code (et toi, l'as-tu testé ?)

Ce n'est pas Button, mais TButton qui est retourné...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If t1='TButton' then ...

[Lecerf]

J'ai testé le programme de nono40, béton, même trop. Je n'arrive pas à trouver le bon bouton .
Avec le source du timer, j'ai bien button.
Je vais voir si je peux jouer avec les positions dans la fenêtre.
Merci