检测程序自身是否在压缩包内解压才能用

有很多软件不解压打开会出错误问题，导致用户以为软件有问题直接删掉而失去用户，用这个代码可用提醒使用者必须解压才可用正常使用。

A ＝ 分割文本 (取运行目录 (), “\”, )
.计次循环首 (取数组成员数 (A), D)
.判断开始 (A [D] ＝ “Temp”)
编辑框1.内容 ＝ “程序在压缩包内”
返回 ()
.默认

.判断结束

.计次循环尾 ()
编辑框1.内容 ＝ “不在压缩包内”