内存释放.e
.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 释放前, 整数型
.程序集变量 释放后, 整数型
.子程序 __启动窗口_创建完毕
自动释放内存 (1)
结束 ()
.子程序 自动释放内存, , , 0 释放自身 非0 所有进程
.参数 方式, 整数型
.局部变量 系统目录, 文本型
.局部变量 进程句柄, 整数型
.局部变量 进程快照, 整数型
.局部变量 进程信息, PROCESSENTRY32
系统目录 = 取特定目录 (#Windows系统目录)
进程快照 = CreateToolhelp32Snapshot (15, 0)
.如果真 (进程快照 = 0)
返回 () ' 本源码来自易语言资源网(www.5A5X.com)
.如果真结束
进程信息.dwSize = 296 ' = len (uProcess)
进程句柄 = Process32First (进程快照, 进程信息)
.判断循环首 (进程句柄 ≠ 0)
.判断开始 (方式 = 0 且 到文本 (进程信息.szExeFile) = 取执行文件名 ())
' 输出调试文本 (到文本 (进程信息.th32ProcessID) + “ ” + 到文本 (进程信息.dwSize) + “ ” + 到文本 (进程信息.dwFlags) + “ ” + 到文本 (进程信息.cntUsage) + “ ” + 到文本 (进程信息.szExeFile) + “ ” + 到文本 (进程信息.cntThreads) + “ ” + 到文本 (进程信息.th32ModuleID) + “ ” + 到文本 (进程信息.pcPriClassBase) + “ ” + 到文本 (进程信息.th32DefaultHeapID) + “ ” + 到文本 (进程信息.th32ParentProcessID))
运行 (系统目录 + “empty.exe ” + 到文本 (进程信息.th32ProcessID), 真, #隐藏窗口)
跳出循环 ()
' 本源码来自易语言资源网(www.5A5X.com)
.默认
.如果真 (方式 ≠ 0)
' 输出调试文本 (到文本 (进程信息.th32ProcessID) + “ ” + 到文本 (进程信息.dwSize) + “ ” + 到文本 (进程信息.dwFlags) + “ ” + 到文本 (进程信息.cntUsage) + “ ” + 到文本 (进程信息.szExeFile) + “ ” + 到文本 (进程信息.cntThreads) + “ ” + 到文本 (进程信息.th32ModuleID) + “ ” + 到文本 (进程信息.pcPriClassBase) + “ ” + 到文本 (进程信息.th32DefaultHeapID) + “ ” + 到文本 (进程信息.th32ParentProcessID))
运行 (系统目录 + “empty.exe ” + 到文本 (进程信息.th32ProcessID), 假, #隐藏窗口)
.如果真结束
' 本源码来自易语言资源网(www.5A5X.com)
.判断结束
进程句柄 = Process32Next (进程快照, 进程信息)
.判断循环尾 ()
CloseHandle (进程快照)