【文件属性】：
文件名称：斗转星移 v1.0
文件大小：27KB
文件格式：E
更新时间：2016-07-14 03:21:56
斗转星移 v1.0 易语言
斗转星移 v1.0 易语言
一部分源码
.版本 2
.程序集 启动程序集
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 命令参数, 文本型, , "0"
.局部变量 参数文本, 文本型
.局部变量 容器1, 字节型
.局部变量 当前目录, 文本型
.局部变量 程序名称, 文本型
.局部变量 执行文件, 文本型
.局部变量 关联文件, 文本型
.局部变量 时间1, 日期时间型
.局部变量 年, 整数型
.局部变量 月, 整数型
.局部变量 日, 整数型
.局部变量 关联操作, 文本型, , "10"
取命令行 (命令参数)
当前目录 ＝ 选择 (取文本右边 (取运行目录 (), 1) ＝ “\”, 取运行目录 (), 取运行目录 () ＋ “\”)
程序名称 ＝ 取执行文件名 ()
程序名称 ＝ 取文本左边 (程序名称, 倒找文本 (程序名称, “.”, , 真) － 1)
.如果 (文件是否存在 (当前目录 ＋ “cr” ＋ 程序名称 ＋ “e.crk”) 且 文件是否存在 (当前目录 ＋ “cr” ＋ 程序名称 ＋ “e.ini”))
年 ＝ 读配置整数 (“besttime”, “year”, 0, 当前目录 ＋ “cr” ＋ 程序名称 ＋ “e.ini”)
月 ＝ 读配置整数 (“besttime”, “month”, 0, 当前目录 ＋ “cr” ＋ 程序名称 ＋ “e.ini”)
日 ＝ 读配置整数 (“besttime”, “date”, 0, 当前目录 ＋ “cr” ＋ 程序名称 ＋ “e.ini”)
.如果真 (年 ＝ 0 或 月 ＝ 0 或 日 ＝ 0)
信息框 (“读取配置文件失败，程序无法继续运行！”, #错误图标, “出错啦”)
结束 ()
.如果真结束
执行文件 ＝ 当前目录 ＋ “cr” ＋ 程序名称 ＋ “e.exe”
.如果真 (文件是否存在 (执行文件) ＝ 假 且 复制文件 (当前目录 ＋ “cr” ＋ 程序名称 ＋ “e.crk”, 执行文件) ＝ 假)
信息框 (“初始化程序文件失败，程序无法继续运行！”, #错误图标, “出错啦”)
结束 ()
.如果真结束
时间1 ＝ 取现行时间 ()
置现行时间 (指定时间 (年, 月, 日, 取时间部分 (取现行时间 (), #小时), 取时间部分 (取现行时间 (), #分钟), 取时间部分 (取现行时间 (), #秒)))
.如果真 (取数组成员数 (命令参数) ＞ 0)
.计次循环首 (取数组成员数 (命令参数), 容器1)
参数文本 ＝ 参数文本 ＋ “ ” ＋ 命令参数 [容器1]
.计次循环尾 ()
.如果真结束
运行 (执行文件 ＋ 参数文本, 真, )
置现行时间 (指定时间 (取时间部分 (时间1, #年份), 取时间部分 (时间1, #月份), 取时间部分 (时间1, #日), 取时间部分 (取现行时间 (), #小时), 取时间部分 (取现行时间 (), #分钟), 取时间部分 (取现行时间 (), #秒)))
关联文件 ＝ 取空白文本 (255)
读配置文本 (“associate”, “filename”, “”, 关联文件, 255, 当前目录 ＋ “cr” ＋ 程序名称 ＋ “e.ini”)