Soyez le premier à donner votre avis sur cette source.
Vue 5 024 fois - Téléchargée 470 fois
procedure TForm1.FormShow(Sender: TObject); var WND : Hwnd; WndName : array[0..255] of char; begin Listbox1.Items.Clear; WND:=FindWindow(nil,nil); // Piké le handle de la fenetre active while wnd<>0 do // Tant q'il y a une window begin GetWindowText(Wnd,WndName,255); // Piké le titre de la wind If WndName[0]>#0 then // si le nom n'et pas vide listbox1.Items.Add(WndName); // Ajouter le titre de l'app a la liste Wnd:=GetWindow(Wnd,GW_HwNDNEXT); // prend le handle de la wind suivante end; end;
31 oct. 2006 à 09:32
listbox1.Items.Add(WndName);
en mettant :
if IsWindowVisible(WND) then listbox1.Items.Add(WndName);
Oui je sais je m'amuse à détérer les post mais c'est une fonction que je cherchais et je me dit que sa pourra sûrement aider quelqun ;)
1 nov. 2004 à 16:17
30 juin 2003 à 22:58
merci :p
28 juil. 2002 à 02:15
27 juil. 2002 à 23:36
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.