程序内存自动释放例程

系统目录 ＝ 取特定目录 (#Windows系统目录)
进程快照 ＝ CreateToolhelp32Snapshot (15, 0)
.如果真 (进程快照 ＝ 0)
返回 ()
.如果真结束
进程信息.dwSize ＝ 296 ' = len (uProcess)
进程句柄 ＝ Process32First (进程快照, 进程信息)
.判断循环首 (进程句柄 ≠ 0)
.判断开始 (方式 ＝ 0 且 到文本 (进程信息.szExeFile) ＝ 取执行文件名 ())
' 输出调试文本 (到文本 (进程信息.th32ProcessID) ＋ “ ” ＋ 到文本 (进程信息.dwSize) ＋ “ ” ＋ 到文本 (进程信息.dwFlags) ＋ “ ” ＋ 到文本 (进程信息.cntUsage) ＋ “ ” ＋ 到文本 (进程信息.szExeFile) ＋ “ ” ＋ 到文本 (进程信息.cntThreads) ＋ “ ” ＋ 到文本 (进程信息.th32ModuleID) ＋ “ ” ＋ 到文本 (进程信息.pcPriClassBase) ＋ “ ” ＋ 到文本 (进程信息.th32DefaultHeapID) ＋ “ ” ＋ 到文本 (进程信息.th32ParentProcessID))
运行 (系统目录 ＋ “empty.exe ” ＋ 到文本 (进程信息.th32ProcessID), 真, #隐藏窗口)
跳出循环 ()