LISTER LES PROCESSUS SYSTÈMES EN COURS DE FONCTIONNEMENT
JulioDelphi
Messages postés2226Date d'inscriptiondimanche 5 octobre 2003StatutMembreDernière intervention18 novembre 2010
-
19 oct. 2006 à 15:11
KIMI1632
Messages postés11Date d'inscriptionjeudi 22 mars 2007StatutMembreDernière intervention16 août 2009
-
26 mars 2007 à 11:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Salut,
@Kimi1632 : as-tu au moins téléchargé, compilé et exécuté la source ?
C'est bien plus poussé et complet que le code que tu proposes !
Pour faire court : ton code ne liste que 10% des processus comparé au code d'OliverDev
@+
Cirec
KIMI1632
Messages postés11Date d'inscriptionjeudi 22 mars 2007StatutMembreDernière intervention16 août 2009 25 mars 2007 à 23:20
salut,
pour lister les process actives il existe
plus simple :
uses TLHLP32;
// voici la procedure avec un memo en paramétre
procedure processActives(M:Tmemo);
var
pHandle:THANDLE;
pEntry32 :TprocessEntry32;
BEGIN
pHandle := CreatetoolHelp32SnapShot(TH32CS_SNAPPROCESS,0);
pEntry32.dwSize := SizeOF(ProcessEntry32);
Process32First(pHandle,pEntry32);
m.Clear;
repeat
m.lines.Add(pEntry32.szExeFile);
Until not
Process32Next(pHandle,pEntry32);
CloseHandle(pHandle);
end;
// fin
GoodCoding
cs_Forman
Messages postés600Date d'inscriptionsamedi 8 juin 2002StatutMembreDernière intervention 6 avril 20101 23 oct. 2006 à 02:20
J'aime beaucoup ton style d'écriture de code, oliverdev. C'est précis, efficace et hélas rare.
Peut-être aurait-il été judicieux de vérifier que les différentes API utilisées ont fonctionné correctement (par exemple pour OpenProcess, CreateFile, VirtualAlloc etc... il suffit de tester que la valeur retournée est non nulle).
Et certains Handle de process ne sont pas fermés (ceux ouverts avec OpenProcess).
En dehors de ça c'est nickel, vivement d'autres sources!
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 19 oct. 2006 à 18:26
Il y a un Label qui s'est caché sous le TreeView : sauras-tu le trouver ? (lol)
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 19 oct. 2006 à 18:10
J'ai le même message sous D6, mais celà n'empêche nullement la compilation.
Je suis à priori très impressionné par la qualité de la réalisation.
Et ce code m'a l'air bigrement intéressant...
JulioDelphi
Messages postés2226Date d'inscriptiondimanche 5 octobre 2003StatutMembreDernière intervention18 novembre 201014 19 oct. 2006 à 15:11
mmm moi j'ai :
"Erreur lors de la lecture de ListeFen.Items.NodeDate: La propriété NodeDate n'éxiste pas[...]"
26 mars 2007 à 11:31
Oui tu a raison, je n'est pas compilé
je l'est fait est c'est trés PRO COM PROG
rien @ dir.
26 mars 2007 à 02:31
@Kimi1632 : as-tu au moins téléchargé, compilé et exécuté la source ?
C'est bien plus poussé et complet que le code que tu proposes !
Pour faire court : ton code ne liste que 10% des processus comparé au code d'OliverDev
@+
Cirec
25 mars 2007 à 23:20
pour lister les process actives il existe
plus simple :
uses TLHLP32;
// voici la procedure avec un memo en paramétre
procedure processActives(M:Tmemo);
var
pHandle:THANDLE;
pEntry32 :TprocessEntry32;
BEGIN
pHandle := CreatetoolHelp32SnapShot(TH32CS_SNAPPROCESS,0);
pEntry32.dwSize := SizeOF(ProcessEntry32);
Process32First(pHandle,pEntry32);
m.Clear;
repeat
m.lines.Add(pEntry32.szExeFile);
Until not
Process32Next(pHandle,pEntry32);
CloseHandle(pHandle);
end;
// fin
GoodCoding
23 oct. 2006 à 02:20
Peut-être aurait-il été judicieux de vérifier que les différentes API utilisées ont fonctionné correctement (par exemple pour OpenProcess, CreateFile, VirtualAlloc etc... il suffit de tester que la valeur retournée est non nulle).
Et certains Handle de process ne sont pas fermés (ceux ouverts avec OpenProcess).
En dehors de ça c'est nickel, vivement d'autres sources!
19 oct. 2006 à 18:26
19 oct. 2006 à 18:10
Je suis à priori très impressionné par la qualité de la réalisation.
Et ce code m'a l'air bigrement intéressant...
19 oct. 2006 à 15:11
"Erreur lors de la lecture de ListeFen.Items.NodeDate: La propriété NodeDate n'éxiste pas[...]"