进程枚举低占用

易语言 2021-03-08 18:04:46

time = GetTickCount ()
.判断循环首 (真) ' 别喷了,用不惯 循环判断首
.判断开始 (数组成员数 = 0 或 数组成员数 = 1024)
数组成员数 = 1024
.默认
数组成员数 = 数组成员数 + 128
重定义数组 (PID数组, 假, 数组成员数)
.判断结束
结构长度 = 数组成员数 × 4
EnumProcesses (PID数组, 结构长度, 实际结构长度)
.如果真 (结构长度 ≠ 实际结构长度)
重定义数组 (PID数组, 真, 实际结构长度 ÷ 4)
跳出循环 ()
.如果真结束

.判断循环尾 ()
调试输出 (GetTickCount () - time)
进程枚举低占用开源。