自定义防御等级网络防火墙软件

内存地址 ＝ BasePtr
.循环判断首 ()
info.NextEntryOffset ＝ 取字节集数据 (指针到字节集 (内存地址 ＋ 0, 4), #整数型, )
info.Action ＝ 取字节集数据 (指针到字节集 (内存地址 ＋ 4, 4), #整数型, )
info.FileNameLength ＝ 取字节集数据 (指针到字节集 (内存地址 ＋ 8, 4), #整数型, )
info.lpFileName ＝ 内存地址 ＋ 12
str1 ＝ UnicodeToAnsi_Ptr (info.lpFileName, info.FileNameLength ÷ 2)
目录变更处理 (info.Action, str1)
内存地址 ＝ 内存地址 ＋ info.NextEntryOffset
.循环判断尾 (info.NextEntryOffset ≠ 0)
_GlobalFree (BasePtr)

这个图标 ＝ 建空图片组 (32, 32)
索引 ＝ 提取加入图片 (这个图标, 取进程路径 (进程PID), , )
程序图标.图片 ＝ 取图片组图片 (这个图标, 索引, )
透明标签1.标题 ＝ “程序:” ＋ 取进程名 (进程PID)