1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources API
  5. Lister les taches actives sous windows

Lister les taches actives sous windows

Soyez le premier à donner votre avis sur cette source.

Vue 4 931 fois - Téléchargée 456 fois

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
1
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
31 octobre 2006
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 ;)
Signaler
Messages postés
18
Date d'inscription
jeudi 19 août 2004
Statut
Membre
Dernière intervention
23 mai 2005
Comment faire pour ne lister que celle qui sont visibles ?
Signaler
Messages postés
136
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
15 février 2006
bravo ManChesTer c'est exactement la source que je cherchais =)
merci :p
Signaler
Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021
Merci delphiprog pour l'url mais je conaissais déja cette facon de proceder, justement, j'en cherche une encore + hard ;o))
Signaler
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
 31
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
S'inscrire maintenant

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.

Du même auteur (cs_ManChesTer)