优化内存调用自带释放内存工具

易语言 2020-10-13 12:13:39

进程快照 = CreateToolhelp32Snapshot (#TH32CS_SNAPALL, 0)
.如果真 (进程快照 = 0)
返回 ()
.如果真结束
进程信息.dwSize = 296 ' = len (uProcess)
进程句柄 = Process32First (进程快照, 进程信息)
.判断循环首 (进程句柄 ≠ 0)
运行 (目录 + “empty.exe ” + 到文本 (进程信息.th32ProcessID), 真, #隐藏窗口)
进程句柄 = Process32Next (进程快照, 进程信息)
.判断循环尾 ()
CloseHandle (进程快照)