取进程CPU占用率

取进程CPU占用率例子。
a ＝ 超级列表框1.插入表项 (超级列表框1.取表项数 (), 进程信息 [i].进程名称, , , , )
.如果真 (PdhOpenQuery (0, 进程信息 [i].进程标识符, 临时数据.hQuery) ＝ 0) ' 打开成功
临时数据.PID ＝ 进程信息 [i].进程标识符
临时数据.索引 ＝ a
临时数据.Counters.hCounter ＝ AddCounter (“\Process(” ＋ 格式名称 (进程信息 [i].进程名称) ＋ “)\% Processor Time”, 临时数据.hQuery)
加入成员 (CPU数据, 临时数据)