[Delphi 4] Handle dun bouton d'une autre application...

Handle dun bouton d'une autre application... [Delphi 4] - Programmation

Marsh Posté le 08-04-2002 à 00:19:45    

Voila ce que j'utilise...
 
var
 hHandle,h1 : HWND;
begin
 hHandle := FindWindow(nil, 'Logiciel';);
 h1 :=FindWindowEx(hHandle ,0,'Button',nil);
end;
Ok, c sympas comme code non ? :) mais... ca marche pas comme je le voudrai : j'explique...
 
Je cree un aplication, un bouton, je le rend invisible (le bouton), je compille, je quitte.
Ensuite, j'utilise mon programme (avec le code du dessus) reglée comme il faut pour trouver le bouton invisible, mais, il me sort comme handle pour le bouton "0", donc, ca marche pas si bien...  
(Sinon ca marche quand le bouton est visible...)
 
Voila ma question : Comment trouver le handle dun Bouton invisible ???

 

[jfdsdjhfuetppo]--Message édité par Slide--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 08-04-2002 à 00:19:45   

Reply

Marsh Posté le 08-04-2002 à 20:02:16    

Je resume :
 
1) je compile un programme avec un bouton invisible
2) je compile un autre programme qui est sensé faire apparaitre le bouton invisible de l'autre programme
 
J'ai utilisé le code du dessu pour le 2 eme programme, mais, il ne trouve pas le handle du bouton invisible.
Par contre il le trouve quand il est visible...

Reply

Marsh Posté le 08-04-2002 à 21:15:06    

On vien de me dire que c'est la fonctionne qui donne le handle que des bouton visible... si vous avez le code pour montrer tt les handle dune fenetre disponible (invisible ou pas) je suis preneur

Reply

Marsh Posté le 08-04-2002 à 21:24:25    

:non: J'ai pas dit ça (c'était par ICQ)
J'ai dit que si ça ne marchait que quand le bouton était visible, c'est que c'était peut-être que la fonctionne ne donnait que les objets visibles.
Faut pas tout comprendre à l'envers.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 08-04-2002 à 21:56:06    

function EnumChildProc(Wnd: HWnd; Form: TForm1):  
  Boolean; stdcall;  
var  
  Buffer : array[0..99] of Char;  
  AText : string;  
begin  
  // Gets the window class and text.  
  GetClassName(Wnd, Buffer, 100);  
  AText := string(Buffer);  
  GetWindowText(Wnd, Buffer, 100);  
  AText := AText + ' (' + string(Buffer) + ';)';  
  // Add the new child node.  
  Form.Listbox1.items.add(AText);  
  // Continues enumerating.  
  Result := True;  
end;  
 
procedure TForm1.Button2Click(Sender: TObject);  
begin  
Listbox1.items.clear;  
EnumChildWindows(FindWindow(nil, 'NOM DE APLICATION';),@EnumChildProc,Lparam(Form1));
 
 
 
bon heu, comment on di de cliker sur un bouton ou de faire apparaitre ? :) heuuu :)
Je c jsute le faire avec le handle moi :/

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed