Récupérer tous les handles d'une application choisie dans une listeRésolu

Question

Bonjour &#224; tous,

Je liste tous les processus actifs dans une liste (de la m&#234;me mani&#232;re que le gestionnaire des taches).

Ensuite, &#224; partir du ProcessID de l'application choisie, j'aimerais r&#233;cuperer tous les handles de ce processus (un handle correspond &#224; un composant de l'application choisie, je me trompe ?),
pour me permettre de s&#233;lectionner un champs texte de cette application.
Je le fait de cette mani&#232;re:
tabHandles: array [0..100] of integer; // Un HWND est un integer...
procedure TfrmMain.ListerHandles(pid: Cardinal);
var
  handles: TList;
  i: Integer;
  findWindowsStruct: TFindWindowsStruct;
begin
  handles:= TList.Create;
  Try
    findWindowsStruct.ProcessID:= pid; // GetCurrentProcessID
    findWindowsStruct.HandleList:= handles;
    EnumWindows(@EnumWindowsProc, Integer(@findWindowsStruct));
    cbThreads.Clear;
    for i:= 0 to handles.Count - 1 do begin
      cbThreads.Items.Add('Handle: '+IntToStr(Integer(handles[i])));
      tabHandles[i] := Integer(handles[i]);
    end;
    cbThreads.ItemIndex := 0;
  Finally
    handles.Free;
  end;
end;
Mais quand je teste les handles re&#231;us avec un 
PostMessage(tabHandles[cbThreads.ItemIndex]),WM_CHAR,sCar,0); // Simulation du copier
Rien ne se passe.

Par exemple, Si je fait: 
myHandle := GetTopwindow(GetforegroundWindow); // Ca marche mais que pour notePad 
PostMessage(myHandle,WM_CHAR,sCar,0);
Et que le focus est sur le notepad par exemple, handle est &#233;gal &#224; 263014. 

Mais si j'utilise la m&#233;thode de listage pour le notepad, il ne me retourne qu'un enregistrement qui est diff&#233;rent de celui de la solution ci-dessus (459614). 

Comment faire ?

[;)] David, &#224; VERSAILLES

Cirec · Accepted Answer

Bon alors regarde j'ai fait un bout de code, cette approche un peut différente mais c'est la seule qui me permet de faire l'inventaire des composants (plus où moins, ne fonctionne pas avec toutes les applications) et d'en selectionner un pour lui envoyer du texte : Unit USendText; Interface Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Type TFrmMain = Class (TForm) cbProcessus: TComboBox; cbThreads: TComboBox; Edit1: TEdit; btn_Refresh: TButton; Procedure btn_RefreshClick(Sender: TObject); Procedure FormShow(Sender: TObject); Procedure FormClose(Sender: TObject; Var Action: TCloseAction); Procedure cbProcessusChange(Sender: TObject); Procedure cbThreadsClick(Sender: TObject); Procedure FormCreate(Sender: TObject); Private Procedure ListerChilds(pid: Cardinal); { Déclarations privées } Public { Déclarations publiques } End; Function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall; Const aStr = '%s %d'; Var FrmMain : TFrmMain; HandleList : TStringList; Implementation {$R *.DFM} Uses TlHelp32; Var tabProcessus : Array[0..100] Of Cardinal; // Contient le ProcessId de la première comboBox tabHandles : Array[0..100] Of integer; // Contient les handles de la deuxième comboBox Function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; Var processID : DWORD; aName : Array[0..255] Of Char; Begin GetWindowThreadProcessID(hwnd, @processID); If (hWnd <> FindWindow('Shell_TrayWnd', Nil)) And (hWnd <> FindWindow('Progman', Nil)) Then If IsWindowVisible(hwnd) Then Begin GetWindowText(hwnd, aName, SizeOf(aName)); HandleList.Add(Format(aStr, [aName, HWnd])); TabProcessus[HandleList.Count - 1] := hwnd; Result := True; End ; End; Procedure GetProcessList; Begin HandleList.Clear; EnumWindows(@EnumWindowsProc, 0); End; Procedure TFrmMain.ListerChilds(pid: Cardinal); Var aHandle : THandle; aName : Array[0..255] Of Char; Begin cbThreads.Clear; aHandle : = 0; Repeat aHandle := FindWindowEx(pid, aHandle, Nil , Nil); If aHandle <> 0 Then Begin GetClassName(aHandle, aName, SizeOf(aName)); cbThreads.Items.Add(Format(aStr, [aName, aHandle])); tabHandles[cbThreads.Items.Count - 1] : = aHandle; End; Until aHandle = 0; End ; Procedure TfrmMain.cbProcessusChange(Sender: TObject); Begin ListerChilds(TabProcessus[cbProcessus.ItemIndex]); End; Procedure TFrmMain.cbThreadsClick(Sender: TObject); Var S : String; Begin S : = '1234567890'; SendMessage(tabHandles[cbThreads.ItemIndex], WM_SETTEXT, 0, Longint(s)); //On Change le Texte End; Procedure TFrmMain.FormCreate(Sender: TObject); Begin HandleList := TStringList.Create; End; Procedure TFrmMain.FormClose(Sender: TObject; Var Action: TCloseAction); Begin HandleList.Free; End; Procedure TFrmMain.FormShow(Sender: TObject); Begin btn_Refresh.Click; End; Procedure TFrmMain.btn_RefreshClick(Sender: TObject); Begin GetProcessList; cbProcessus.Items.Clear; cbProcessus.Items.AddStrings(HandleList); End; End. Le TEdit n'est la que pour tester et pour avoir FrmMain dans la liste il faut cliquer sur Refresh Tester ok sur : NotePad, Calculatrice et sur lui même. il faut bien sur affiner mais je pense que c'est la marche à suivre Tiens moi au courant @+ Cirec

Cirec · Answer

Salut,
Ce bout de code envoie du texte &#224; la calculatrice 

procedure TForm1.Button1Click(Sender: TObject);
Var s : String;
  H_WinCmd : THandle;
begin
S := '123456789'; // Texte &#224; envoyer
H_WinCmd := FindWindowEx(FindWindow(Nil, 'calculatrice'), 0,'Edit', nil);  // on trouve le handle de l'edit
SendMessage(H_WinCmd,WM_SETTEXT,0,Longint(s)); //On Change le Texte
end;

@+
Cirec

cs_nitrique · Answer

Bonjour cirec,

C'est cool, je mettrais le ProcessId dans le premier param&#232;tre mais seulement le 3&#232;me param&#232;tre m'est inconnu, je veux essayer avec tous les handles du processus.

N'y a t-il pas un &#233;quivalent qui attends un HWND plutot qu'un pchar en param&#232;tre ?

[;)] David, &#224; VERSAILLES

Cirec · Answer

Le handle que tu r&#233;cup&#232;re ainsi c'est celui de la fen&#234;tre et non celui d'un composant.
Pour pouvoir envoyer du texte au NotePad il faut trouver le handle de l'Edit qui se trouve sur la fiche



Voici une variante qui change le texte du Notepad
procedure TForm1.Button1Click(Sender: TObject);
Var s : String;
  H_WinCmd : THandle;
begin
  S := '123456789'; // Texte &#224; envoyer
  H_WinCmd := FindWindowEx(FindWindow('NotePad', Nil), 0,'edit', nil);  // on trouve le handle de l'edit
  SendMessage(H_WinCmd,WM_SETTEXT,0,Longint(s)); //On Change le Texte
end;


Pour &#233;numerer les fen&#234;tres enfants il existe :
EnumChildWindows
Essaye peut &#234;tre avec mais il faudra quand m&#234;me faire la diff&#233;rence entre un bouton et un edit pour envoyer le texte au bon composant

@+
Cirec

cs_nitrique · Answer

Tr&#232;s bien, je vais essayer.

Mais dans ce cas, comment &#231;a se fait que ma fonction retourne plusieurs handles pour certains processus (word, ...) ?
De plus, dans le cas d'une application qui a plusieurs champs textes, j'aimerais choisir !

[;)] David, &#224; VERSAILLES

Cirec · Answer

Pourrais-tu encore fournir les d&#233;clarations et impl&#233;mentations de  : EnumWindowsProc & FindWindowsStruct 
pour pouvoir faire un teste 

@+
Cirec

cs_nitrique · Answer

Aucun pb, les voici:
type
  PFindWindowsStruct = ^TFindWindowsStruct;
  TFindWindowsStruct = record
    ProcessID: DWORD;
    HandleList: TList;
var
  tabProcessus: array [1..100] of Cardinal; // Contient le ProcessId de la premi&#232;re comboBox
  tabHandles: array [0..100] of integer; // Contient les handles de la deuxi&#232;me comboBox

function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): boolean; stdcall;
var
  dwProcessId: DWORD;
begin
  if lParam <> 0 then
  begin
    GetWindowThreadProcessId(hwnd, dwProcessId);
    with PFindWindowsStruct(lParam)^ do
      if dwProcessID = ProcessID then
        HandleList.Add(Pointer(hwnd));
    result:= true;
  end
  else
    result:= false;
end;


procedure TfrmMain.ListerProcessus(); // Lister les processus actifs du systeme
var
  SnapShot: Cardinal;
  ProcessEntry: TProcessEntry32;
  i: integer;
begin
  cbProcessus.Clear;
  SnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); // Cr&#233;ation de "l'instantan&#233;"
  If SnapShot = 0 then Exit; // En cas d'erreur on sort
  ProcessEntry.dwSize := SizeOf(ProcessEntry);
  If Process32First(SnapShot, ProcessEntry) then begin // Lecture du premier processus de la liste
    cbProcessus.Items.Add(ProcessEntry.szExeFile);
    cbProcessus.ItemIndex := 0;
    i := 0;
    while Process32Next(SnapShot, ProcessEntry) do begin // Tant qu'il reste un processus, ajouter son nom &#224; la liste
      cbProcessus.Items.Add(ProcessEntry.szExeFile+' ('+IntToStr(ProcessEntry.th32ProcessID)+')');
      i := i+1;
      tabProcessus[i] := ProcessEntry.th32ProcessID; // Garde le ProcessId pour la correspondance
     end;
  end;
  CloseHandle(SnapShot); // Lib&#233;ration de l'instantan&#233;
end;


procedure TfrmMain.ListerHandles(pid: Cardinal);
var
  handles: TList;
  i: Integer;
  findWindowsStruct: TFindWindowsStruct;
begin
  handles:= TList.Create;
  Try
    findWindowsStruct.ProcessID:= pid; // GetCurrentProcessID
    findWindowsStruct.HandleList:= handles;
    EnumWindows(@EnumWindowsProc, Integer(@findWindowsStruct));
    cbThreads.Clear;
    for i:= 0 to handles.Count - 1 do begin
      cbThreads.Items.Add(IntToStr(pid)+' '+IntToStr(Integer(handles[i])));
      tabHandles[i] := Integer(handles[i]);
    end;
    cbThreads.ItemIndex := 0;
  Finally
    handles.Free;
  end;
end;

procedure TfrmMain.cbProcessusChange(Sender: TObject);
begin
  ListerHandles(tabProcessus[cbProcessus.ItemIndex]);
end;

postMessage(tabHandles[cbThreads.ItemIndex],WM_PASTE,0,0); // Dans mon &#233;venement

Il faut juste 2 combobox (cbProcessus et cbThreads)
Le principe est simple, quand tu changer cbProcessus qui contient le nom de tous les processus, j'aurais aim&#233; que &#231;a affiche tous les handles correspondant aux composants de ce processus dans la 2&#232;me lookup.

[;)] David, &#224; VERSAILLES

cs_nitrique · Answer

Heu...

Tu est sur que tout est la ?

Ma combobox de proccessus est vide, EnumWindows(@EnumWindowsProc, 0); ne remplit pas HandleList.

Ne faut-il pas garder ma fonction ListerProcessus() ?

[;)] David, &#224; VERSAILLES

cs_nitrique · Answer

En fait, il ne passe pas IsWindowVisible dans EnumWindowsProc.
Si j'enl&#232;ve la condition, &#231;a plante !

Quels &#233;lements cible tu en les voulant visibles ?
Ne peut-on pas utiliser ta m&#233;thode avec ma fonction ListerProcessus() ?

[;)] David, &#224; VERSAILLES

Cirec · Answer

La source fonctionne tel quel.
le probl&#232;me c'est que je n'ai pas r&#233;ussi &#224; r&#233;cuperer les handles des composants d'une fen&#234;tre avec ta fonction.


par contre celle-ci fonctionne tr&#232;s bien (chez moi) et si j'enl&#232;ve IsWindowVisible &#231;a ne plante pas mais j'ai toutes les fen&#234;tres du syst&#232;me ?


ps : apr&#232;s avoir cliquer sur Refresh tu choisis un processus qui t'interesse tu cliques dessus et si il y en a (des composants) il met les handles dans la liste

@+
Cirec

cs_nitrique · Answer

Peux tu m'envoyer ton exe que je le teste sur mon poste ?
Car rien &#224; faire, ma liste ne veut pas se remplir 

[;)] David, &#224; VERSAILLES

Cirec · Answer

Ok
Donne moi ton adresse mail par MP et je t'envoie le tout

@+
Cirec

Récupérer tous les handles d'une application choisie dans une liste

12 réponses

Votre réponse

Discussions similaires