怎样获得系统所有的进程(50分)

怎样获得系统所有的进程，谢谢

最后一次贴<br>注意uses TLHelp32）<br>然后<br>var lppe: TProcessEntry32; <br>&nbsp; &nbsp; found : boolean; <br>&nbsp; &nbsp; Hand : THandle;<br>begin<br>&nbsp; Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);<br>&nbsp; found := Process32First(Hand,lppe);<br>&nbsp; while found do <br>&nbsp; begin<br>&nbsp; &nbsp; ListBox.Items.Add(StrPas(lppe.szExeFile));//列出所有进程。<br>&nbsp; &nbsp; found := Process32Next(Hand,lppe); <br>&nbsp; end;<br>end;<br>

thanks your answer