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
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!
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...
Oui tu a raison, je n'est pas compilé
je l'est fait est c'est trés PRO COM PROG
rien @ dir.
- Messages postés
-
3824
- Date d'inscription
- vendredi 23 juillet 2004
- Statut
- Modérateur
- Dernière intervention
- 18 décembre 2020
37@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
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
- Messages postés
-
600
- Date d'inscription
- samedi 8 juin 2002
- Statut
- Membre
- Dernière intervention
- 6 avril 2010
1Peut-ê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!