进程管理加压内存，降低内存分配的功能

取全径进程组 (进程组, 指针组)
.计次循环首 (取数组成员数 (进程组), i)
.如果真 (进程组 [i] ＝ name)
SetProcessWorkingSetSize (指针组 [i], 5000, -1)
处理事件 ()
.如果真结束
处理事件 ()
.计次循环尾 ()

重定义数组 (路径变量, 假, 0)
进程快照 ＝ 创建快照 (15, 0)
.如果真 (进程快照 ＝ 0)
信息框 (“创建进程快照失败”, 0, )
返回 (0)
.如果真结束
进程数 ＝ 0
进程列表.size ＝ 296
tmp ＝ 第一个 (进程快照, 进程列表)
.判断循环首 (tmp ≠ 0)
进程数 ＝ 进程数 ＋ 1
snap ＝ 创建快照 (8, 进程列表.id)
.如果真 (snap ≠ -1)
mod.size ＝ 1024
模块1 (snap, mod)
全径 ＝ 取字节集数据 (到字节集 (mod.szpath), 10, )
.如果真 (进程列表.id ≠ 0 且 全径 ≠ “”)
加入成员 (路径变量, 全径)
.如果真 (是否为空 (指针变量) ＝ 假)
加入成员 (指针变量, OpenProcess (1, 0, 进程列表.id))
.如果真结束

.如果真结束

.如果真结束
tmp ＝ 下一个 (进程快照, 进程列表)
.判断循环尾 ()