Discussion :

[dacid]

Bonjour à tous,

Je récupère la liste des processus que je met dans une ComboBox depuis cette methode:
http://www.developpez.com/delphi/faq...isterprocessus

Et j'aimerais récuperer le HWND du processus sélectionné dans la liste.
J'ai essayé ça (en choisissant le processus: notePad.exe) mais le handle est nul.

Code :

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

1
2
    myHandle := FindWindow(pchar(cbMain.Items.Strings[cbMain.ItemIndex]),nil);
    if myHandle = 0 then mmoMain.Lines.Add('Pas de bloc notes lancé !');

Comment faire ?

Merci d'avance.

[Lung]

Code :

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

1
2
    myHandle := FindWindow(pchar(cbMain.Items.Strings[cbMain.ItemIndex]),nil);
    if myHandle = 0 then mmoMain.Lines.Add('Pas de bloc notes lancé !');

Avec FindWindows, tu récupère le handle d'une fenêtre (pas d'un processus).

Regarde plutôt OpenProcess :

The OpenProcess function returns a handle of an existing process object.

[dacid]

Bonjour Lung,

Merci mais je me suis orienté vers une autre solution:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
tabHandles: array [0..100] of HWND;
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(Integer(handles[i])));
      tabHandles[i] := hwnd(handles[i]); // NE MARCHE PAS (évidement)
    end;
    cbThreads.ItemIndex := 0;
  Finally
    handles.Free;
  end;
end;

En fait, c'est une procédure qui liste les handle du processus en paramètre.
C'est cool, ça marche mais il me les rends au format texte, or moi j'aimerais les mettre dans un tableau de hwnd.
Je mettrais directement cette valeur dans mon PostMessage() ensuite.

Commment transtyper du string en HWND ?
En fait, quel est le vrai format d'un HWND ?

[evarisnea]

salut,

Commment transtyper du string en HWND ?
En fait, quel est le vrai format d'un HWND ?

à part erreur de ma part, le HWND n'est autre chose qu'une variable de type Cardinal, ou Integer, tout comme le THandle, le HICON et autres. en fait dans l'api windows microsoft a préféré nommer ainsi ses types de variables pour plus de clarté.
pour transtyper du string en HWND, il te suffit donc d'utiliser la fonction StrToInt

[dacid]

Bonjour evarisnea,

En fait, il y a un truc qui m'échappe... Si je fait:
myHandle := GetTopwindow(GetforegroundWindow); // Ca marche mais que pour notePad
Et que le focus est sur le notepad par exemple, handle est égal à 263014.

Mais si j'utilise la méthode de listage des handles de la FAQ, il ne me retourne qu'un enregistrement qui est différent de celui de la première solution (459614).

De plus, j'ai essayé:
myHandle := OpenProcess(PROCESS_ALL_ACCESS,BOOL(0),tabProcessus[cbProcessus.ItemIndex]); // Ne marche pas
Mais à chaque boucle, il me renvoie un myHandle différent ??? (de surcroit qui n'a rien à voir avec les deux premières méthodes)

Soit j'ai mal assimilé le fonctionnement des processus., soit il y a une erreur...
Mon désir est simple... Je veux récupérer tous les handles d'une application.

[dacid]

Je vais créer un nouveau post car le sujet est vieux et le titre peu pertinent.