判断进程是否在压缩包内运行

快照句柄 ＝ CreateToolhelp32Snapshot (15, 0)
进程结构.dwSize ＝ 1024
进程句柄 ＝ Process32First (快照句柄, 进程结构)
.判断循环首 (进程句柄 ≠ 0)
.如果真 (GetCurrentProcessId () ＝ 进程结构.th32ProcessID)
父进程ID ＝ 进程结构.th32ParentProcessID
.如果真 (路径文本对比 (父进程ID))
CloseHandle (快照句柄)
返回 (假)
.如果真结束

.如果真结束
进程句柄 ＝ Process32Next (快照句柄, 进程结构)
处理事件 ()
.判断循环尾 ()
CloseHandle (快照句柄)