Discussion :

[looc 6699]

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

merci

[edam]

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

[Thierry Laborde]

tu peux aussi utiliser la DLL AutoItDll :

http://christopher-pecaud.developpez.com/AutoItDll/

[looc 6699]

merci pour vous, vous m avez sauvez

[lil_jam63]

Voilà une solution assez simple

Code :

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

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;

[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 ...

Quelqu'un aurait une tite idée ??

[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.

[SubZero2]

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

Dans l'ordre :

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