Lister les taches actives sous windows

Soyez le premier à donner votre avis sur cette source.

Vue 5 024 fois - Téléchargée 470 fois

Description

Il faut creer une une form et y mettre un Listbox

Sinon, il y a le zip...

Source / Exemple :


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;

Conclusion :


N'oubliez pas de déclaré l'event onshow de form1.

Bon Coding ...

ManChesTer

Codes Sources

A voir également

Ajouter un commentaire Commentaires
tony_toon
Messages postés
1
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
31 octobre 2006

31 oct. 2006 à 09:32
Si tu veu juste lister celles qui sont visibles tu peut modifier la ligne :
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 ;)
Awaking
Messages postés
18
Date d'inscription
jeudi 19 août 2004
Statut
Membre
Dernière intervention
23 mai 2005

1 nov. 2004 à 16:17
Comment faire pour ne lister que celle qui sont visibles ?
cs_costello
Messages postés
136
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
15 février 2006

30 juin 2003 à 22:58
bravo ManChesTer c'est exactement la source que je cherchais =)
merci :p
cs_ManChesTer
Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021

28 juil. 2002 à 02:15
Merci delphiprog pour l'url mais je conaissais déja cette facon de proceder, justement, j'en cherche une encore + hard ;o))
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
27 juil. 2002 à 23:36
Pour forcer une appli à se fermer, regardes la méthode KillSelectedProcess à l'adresse http://www.howtodothings.com/showarticle.asp?article=142.
Afficher les 8 commentaires

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.