易语言写的CE内存搜索

进程句柄 ＝ OpenProcess (1040, 0, 进程号)
全路径名 ＝ 取空白文本 (255)
.如果真 (GetModuleFileNameExA (进程句柄, 0, 全路径名, 255) ≠ 0)
全路径名 ＝ 子文本替换 (全路径名, “\??\”, “”, , , 真)
.如果真 (到小写 (取文本左边 (全路径名, 12)) ＝ “\systemroot\”)
' 输出调试文本 (到小写 (取文本左边 (全路径名, 12)))
全路径名 ＝ 子文本替换 (全路径名, “\systemroot\”, 系统目录, , , 假)
.如果真结束
返回 (全路径名)
易语言写的CE内存搜索例子。