Discussion :

[yannfrance]

Bonjour à tous.

J'agis sur une application externe, et là, j'ai besoin de récupérer les items, donc les textes qui se trouve dans un PopupMenu "externe à mon application".
J'arrive à récuperer son handle à chaque clic par sa classe, donc, sachant son handle, comment puis-je procéder.
Merci à vous.

[ero-sennin]

Salut,

Tu peux faire ceci par exemple (fonctionne sous Delphi 2009) :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  Count: Integer;
  Buffer: array[0..MAX_PATH - 1] of Char;
begin
Count := Length(Buffer);
GetWindowText(Button1.Handle, Buffer, 255);
ShowMessage(Buffer);
end;

Tu remplaces Button1.Handle par l'Handle de ton item ...
En espérant t'avoir aidé

A+

[yannfrance]

Bonjour ero-sennin

Merci de t'interesser à mon problème.
Cela ne fonctionne pas, même sous delphi 2009...
J'ai même essayer de renvoyer le contenu dans un memo, mais c'est la même chose.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Timer1Timer(Sender: TObject);
 Var monhandle, Count : Integer;
      Buffer: array[0..MAX_PATH - 1] of Char;
begin
 monhandle:= FindWindow('#32768', Nil);
 label1.Caption:= IntToStr(monhandle); // pour vérifier que j'ai un handle.
 Count := Length(Buffer);
 GetWindowText(monhandle, Buffer, 255);
 Memo1.Lines.Add(Buffer);

Voilà, le tous placé dans un Timer, étant donner que c'est du popup et que je ne peut pas cliquer sur un bouton et un popup en même temps.
Peut-être est-ce dû à GetWindowText qui ne peut récupérer uniquement le contenue Texte d'une barre de titre mais qpas d'un popup ?
Merci.
je suis sûr que c'est presque ça

J'ai même essayer ceci, mais en vain:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Timer1Timer(Sender: TObject);
 Var monhandle, longueur : Integer;
     texte: String;
begin
 monhandle:= FindWindow('#32768', Nil);
 label1.Caption:= IntToStr(monhandle);
 
longueur := SendMessage(monhandle, WM_GETTEXTLENGTH, 0, 0); // recupère dans variable longueur le contenue de longueur
  SetLength(texte, longueur);   // On demande de la place
  SendMessage(monhandle, WM_GETTEXT, longueur +1, LParam(PChar(texte))); // longueur + 1 pour 0#
 
  Memo1.Lines.Add(texte); // Ajoute le contenue de texte dans memo1

Voilà, c'est la galère
Autre chose ?
merci

[ero-sennin]

Salut yannfrance,

J'avais pourtant essayé avec un TButton ... et ce n'est pas une barre de titre
Pour ce qui est de la seconde solution, c'est celle que j'aurai donné si éventuellement ça ne fonctionnerait pas

Faudrait voir pour être sur que ton Handle est bien celui que tu penses être.
Tu peux télécharger WindowSpy pour voir le Handle de ton TItems ...

A+

[yannfrance]

Re ero-sennin

Oui, le handle est le bon étant donné que je le tiens dans un Label et que je procède la vérification via windowsSpy.
On parle bien d'agir sur une appli externe, car tu me dit un Titems, qui semble être du local.
Ensuite, je précise que dans un popupMenu, Chaque items ne contient pas de handle, c'est le popup qui le contient, donc sachant ceci, même avec GetText, je ne doit normalement pas récuperer les items.
Arf, je suis à bout de connaissance là ont dirais
personne n'as déjà fait cette manip ?

ero-sennin , merci beaucoup pour ton aide, c'est sympa

[ero-sennin]

Bon, j'avoue que c'est assez délicat comme soucis
Je viens de faire quelques tests, et effectivement, je n'arrive à rien.
Le handle du popup menu est celui lorsque l'on clic droit sur le bureau non ?
Du moins, c'est celui ci que j'ai comme class ...

Bon, ba là, je sèche aussi, désolé