摘要: program ProcessesList; uses Comobj; var Wmi,Obj,Objs: OleVariant; i,ProcessTotal:Byte; begin Wmi:= CreateOleObject('WbemScripting.SWbemLocator'); Objs 阅读全文