cliquer sur un bouton d'une application extérieure

Version imprimable

22/06/2005, 12h23
looc 6699

cliquer sur un bouton d'une application extérieure

bounjour

je voulrais savoire Comment je peux cliquer sur un bouton d'une application extérieure avec delphi

aidez moi c'est trés urgant :cry:

merci
22/06/2005, 12h26
edam

deux méthode
1:simuler l'apuit de la sourie, voir:http://delphi.developpez.com/faq/?pa...ulerclicsouris
2:envoyer un message
22/06/2005, 13h37
Thierry Laborde

tu peux aussi utiliser la DLL AutoItDll :

http://christopher-pecaud.developpez.com/AutoItDll/
25/06/2005, 12h12
looc 6699

merci pour vous, vous m avez sauvez :lol:

Voilà une solution assez simple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button3Click(Sender: TObject);
var
  hCible, hButton : HWND;
begin
  hCible := FindWindow(nil, PChar('nomDeLaFenetreDeLaCible')); //on retrouve le Handle de la fenêtre du programme
  if hCible <> 0 then
    begin
      hButton := FindWindowEx(hCible, 0, nil, PChar('nomDuBoutonCible')); //on retrouve le Handle du bouton sur lequel on veux cliquer
      if hButton <> 0 then
        SendMessage(hButton, BM_CLICK, 0, 0);  //on lui faire croire que l'on a cliqué dessus
    end;
end;

12/12/2005, 16h52
SubZero2

je remet ce sujet au gout du jour car chez moi le dernier bout de code cité ne fonctionne pas ... pourtant j'ai les source de l'appli que je veux "attaquer" mais hButton me renvoi toujours 0 ... :roll:

Quelqu'un aurait une tite idée ??
12/12/2005, 17h28
glayag

Je pense que le bouton n'est pas un enfant direct de la fiche.
En fait, lorsque tu utilise le FindWindowEx, il faut que le handle passe en premier parametre soit le handle du parent du controle que tu veux.
Attention, je parle du parent et non du owner.
12/12/2005, 17h46
SubZero2

en fait mon bouton est contenu dans un activex ...

Dans l'ordre :

un activeX => un TToolBar ==> Trois TToolButton ( dont celui que je veux )