Enumérer les fenètres windows

Description

Ce code sert à énumérer les fenètres de windows, avec leur titre.
Vous devez créer une listbox de nom List1 et un bouton de nom BtLister pour que le code marche.

Source / Exemple :


{Type à déclarer}
EnumWindowsProc = function (Hwnd : THandle;Param:Pointer):Boolean;stdcall;

{Fonction qui listera les fenêtres}
function GetTitle(Hwnd : THandle;Param:Pointer):Boolean;stdcall;
var
  Text : string;
begin
  SetLength(Text,100);
  GetWindowText(Hwnd,Pchar(Text),100);
  FrmMain.List1.Items.Add (Inttostr(Hwnd) + ' : ' + Text);
  GetTitle := True;
end;

{Procédure du bouton pour déclencher le listage}
procedure TFrmMain.BtListerClick(Sender: TObject);
var
WindowProc : EnumWindowsProc;
begin
  List1.Items.Clear;
  WindowProc := GetTitle;
  EnumWindows(@WindowProc,0);
end;

Conclusion :


Un petit zip avec le projet est offert en kdo
@+
VUX

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.