Soyez le premier à donner votre avis sur cette source.
Vue 6 819 fois - Téléchargée 533 fois
{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;
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.