关于进程问题(附代码)(100分)

各位高手:<br>&nbsp; &nbsp;我在大富翁里看到一段关于进程的代码<br>但编译时总出错:<br>不认识以下类型或关键字:<br>TProcessEntry32;/CreateToolhelp32Snapshot/TH32CS_SNAPALL/Process32First<br>请问如何解决?<br>var<br>&nbsp; lppe: TProcessEntry32;<br>&nbsp; found : boolean;<br>&nbsp; Hand : THandle;<br>begin<br>&nbsp; &nbsp; &nbsp; &nbsp; form1.ListBox1.Items.Clear;<br>&nbsp; &nbsp; &nbsp; &nbsp; Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);<br>&nbsp; &nbsp; &nbsp; &nbsp; found := Process32First(Hand,lppe);<br>&nbsp; &nbsp; &nbsp; &nbsp; while found do<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; form1.ListBox1.Items.Add(StrPas(lppe.szExeFile));<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; found := Process32Next(Hand,lppe);<br>&nbsp; &nbsp; &nbsp; &nbsp; end;<br>end;<br><br>

uses TlHelp32;

http://jp.njuct.edu.cn/crystal/program_view.asp?id=10

呵呵，你少用了 TlHelp32 单元。

gy1969的答复简洁,明快,切中要害给95分<br>房客提供的网址我上不去,给5分参与分<br>多谢1

对不起星际浪人,您来晚了,我的分已经给完了,您的答复完全正确,多谢了<br>下次再努力