Processing processes

[Gintaras]

Macro Macro2757

Code:

Copy      Help

;gets all child processes of explorer

int pidParent=ProcessNameToId("explorer")
if(!pidParent) ret
ARRAY(int) a; a[]=pidParent

__Handle hs=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS 0)
PROCESSENTRY32 p.dwSize=sizeof(p)
Process32First(hs &p)
rep
,if p.th32ParentProcessID=pidParent
,,out F"pid={p.th32ProcessID}  name={&p.szExeFile%%s}"
,,a[]=p.th32ProcessID
,if(!Process32Next(hs &p)) break

;int i
;for i 0 a.len
,;ShutDownProcess a[i] 1