开发工具:
文件大小: 27kb
下载次数: 0
上传时间: 2013-06-24
详细说明： 斗转星移 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”) ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
