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
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.