Liste des executables et du nombre de threads utilisées

Soyez le premier à donner votre avis sur cette source.

Vue 4 490 fois - Téléchargée 357 fois

Description

pour applé la procedure :

listExecutables(listbox1);

un Listbox doit bien sur etre prèsent sur le form ;o))

il faut aussi ajouter Tlhelp32 dans les uses....

Source / Exemple :


Procedure ListExecutables(Sender : Tobject);
var Proc : Tprocessentry32;
    Prh  : Thandle;
begin
 Tlistbox(Sender).Clear;
 proc.dwSize:=sizeof(proc);
 prh:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
 process32first(prh,proc);
 Tlistbox(sender).Items.Add(proc.szExeFile+' '^I'Threads : '+inttostr(proc.cntThreads));
 while process32next(prh,proc) do
  Tlistbox(sender).Items.Add(proc.szExeFile+' '^I'Threads : '+inttostr(proc.cntThreads));
end;

Conclusion :


prendre le zip pour avoir un example (delphi 6)

Bon Coding

ManChesTer

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
368
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013

vi et ?

arf c'est une ligne de - dans l'editeur delphi, lol

mais a teu une idèe sur le code que le compilateur va generer ?

Je te laisse cogitter....

Bon Coding ManChesTer.
Messages postés
6
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
15 février 2003

Tlistbox(sender).Items.Add(proc.szExeFile+' '^I'Threads : '+inttostr(proc.cntThreads));
while process32next(prh,proc) do
Tlistbox(sender).Items.Add(proc.szExeFile+' '^I'Threads : '+inttostr(proc.cntThreads));
end;

//est égale à :

Repeat
Tlistbox(sender).Items.Add(proc.szExeFile+' '^I'Threads : '+inttostr(proc.cntThreads));
until not process32next(prh,proc) 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.