Discussion :

[Isa31]

Bonjour à tous,

Je voulais savoir comment on faisait pour déterminer la fenêtre active, fenêtre qui n'appartient pas à l'application Delphi.
Comment fait-on aussi pour connaitre le nom de toutes les fenêtre ouvertes.

Merci pour vos réponses.
Isa

[ElNan]

Salut,

pour la fenêtre active, ca doit etre quelque chose comme GetActiveWindow , difficile non ?
Ca renvoit un handle de fenêtre.
Pour récupérer son titre ? GetWindowText dans un buffer précréé et en spécifiant le handle de la fenêtre.

Tiens je viens de trouver ca sur .... developpez.com :
http://delphi.developpez.com/faq/?page=composantsapi
Ca va t'interesser.
Bye.

[Isa31]

Merci beaucoup, j'avais vu ce sujet.
En fait je me demande plus comment on peut faire pour récupérer le nom de toutes les fenêtres ouverte.
: :

[ElNan]

Salut,

j'ai fait un truc vite fait qui affiche le nom des fenêtres dans un mémo sur l'ouverture d'une form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.FormCreate(Sender: TObject);
var  ch : HWND;
  bufferTitle: array[0..255] of char;
begin
  ch := GetDesktopWindow;
  ch := GetTopWindow(ch);
  while ch <> 0 do
  begin
    if IsWindowVisible(ch) then
      if GetWindowText(ch, bufferTitle, 255) <> 0then
        Memo1.Lines.Add(bufferTitle);
    ch := GetNextWindow(ch, GW_HWNDNEXT);
  end;
end;

En éspérant que cela t'aide.

Bye.

[Isa31]

Merci beaucoup pour le code.
C'est ça que je voulais faire. 8)