Lister les compos d'une autre appli

Version imprimable

31/08/2005, 11h28
qi130

Lister les compos d'une autre appli

Soit une appli graphique qui tourne.

Elle présente des boutons, 1 champ Edit, 1 label.

Comment récupérer le handle associé à ces objets ?

Je cherche à envoyer un WM_PASTE au champ Edit.

Sachant que j'ai regardé la FAQ et l'exemple concernant l'envoi de WM_CLOSE à une fenêtre; mais son adaptation ne semble pas fonctionner (msdn semble indiquer que c'est l'Edit qui doit recevoir ce message).

Merci pour vos lumières :idea:
31/08/2005, 12h18
sjrd

Tu peux récupérer le handle de tous les descendants de TWinControl par leur propriété Handle.
Mais pour faire effectuer un WM_PASTE à ton edit je te conseilles plutôt d'utiliser Perform :

Code:

Edit1.Perform(WM_PASTE, ...);
31/08/2005, 12h35
qi130

Arhhhh, il manque un détail dans les données du pb:

Je n'ai pas les sources de cette appli, mais je veux créer un pgm en Delphi qui va (essayer d') envoyer WM_PASTE au champ Edit...

Donc mon prog doit
1/ récupérer le handle de l'autre appli
2/ identifier le champ Edit
3/ envoyer le message
31/08/2005, 14h35
Bestiol

regarde cette source de Nono40.

Avec EnumChildWindows tu peux récupérer le handle de ton Edit dans ta fenêtre.
Pour trouver le handle de ta fenêtre, utilise FindWindow ou FindWindowEx :)

Merci aux contributeurs, voici le résultat :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
program Paste2D1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,messages,windows,Classes;
 
 
var
  monhandle,newhandle : THandle;
Function EnumChildProc(H:THandle;HEdit:THandle):Bool;Stdcall;
Var BuffClasse : Array[0..255]Of Char;
Begin
    GetClassName (H,@BuffClasse,SizeOf(BuffClasse));
 
    if BuffClasse='Edit' then begin
       newhandle:=H;
       Result:=False;
    end;
End;
 
Begin
  //Le second paramètre de FindWindow est le titre de la fenêtre!
  monhandle := FindWindow(nil,'User ID');
  EnumChildWindows(monhandle,@EnumChildProc,newhandle);
  SendMessage(newhandle,WM_PASTE,0,0);
end.

J'ai un doute sur l'utilité du LParam à l'appel de EnumChildWindows, mais bon ça fonctionne, alors.....