——我是小尾巴我发表于2015年02月26ㄖ周四 下午08:14:55
.程序集 窗口程序集1
.程序集变量 目錄数组, 文本型, , "0"
.程序集变量 文件数组, 文本型, , "0"
.程序集变量 线程句柄, 整数型
.子程序 _按钮1_被单击
path = 浏览文件夹 (“请选择原目录:”, )
.子程序 _按钮2_被单击
path = 浏览文件夹 (“请选择新目录:”, )
.子程序 线程_进度显示
.局部变量 计次, 整数型
.局部变量 计次一, 整数型
子程序_核心搜索 (编辑框1.内容)
进度条1.位置 = 0
進度条1.最大位置 = 取数组成员数 (目录数组)
.计次循环首 (取数组成员数 (目录数组), 计次)
进度条1.位置 = 0
进度条1.最大位置 = 取数组成员数 (文件数组)
.计佽循环首 (取数组成员数 (文件数组), 计次一)
透明标签1.标题 = “恭喜!备份成功”
进度条1.位置 = 0
进度条2.位置 = 0
透明标签1.标题 = 频率框.内容 + “分钟後进行下次备份”
.子程序 子程序_核心搜索
.参数 目标目录, 文本型
.局部变量 文件名, 文本型
文件名 = 寻找文件 (目标目录 + “\*.*”, #子目录)
.判断循环首 (攵件名 ≠ “”)
文件名 = 寻找文件 (目标目录 + “\*.*”, )
.判断循环首 (文件名 ≠ “”)
.子程序 __启动窗口_可否被关闭, 逻辑型
' _启动窗口.位置 = 2 ' 2=最小化其它參数偶就不清楚了,只知道3以上都是最大化
' 返回 (假) '这个子程序的作用是:点击关闭按钮后窗口是否被关闭。而返回假的话就表示不可關闭。如果返回真就表示可以关闭同时可以加入某些命令,比如弹出对话框或是打开网址前面的符号是表示这个子程序被屏蔽了。
_启動窗口.可视 = 假
.如果真 (信息框 (“正在复制文件中是否强制关闭?”, 4 + 48, ) = 6)
强制结束线程 (线程句柄)
.子程序 __启动窗口_创建完毕
置托盘图标 (_启动窗口.图标, “备份工具”)
编辑框1.内容 = 到文本 (读入文件 (取运行目录 () + “\要备份文件夹位置.txt”))
编辑框2.内容 = 到文本 (读入文件 (取运行目录 () + “\存儲位置.txt”))
频率框.内容 = 到文本 (读入文件 (取运行目录 () + “\时间周期.txt”))
.如果 (编辑框1.内容 = “”)
.子程序 _按钮4_被单击
.如果 (编辑框1.内容 = “”)
.子程序 _時钟1_周期事件
清除数组 (目录数组)
清除数组 (文件数组)
.子程序 _按钮3_被单击
.如果 (编辑框1.内容 = “”)
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.洳果 (操作类型 = 1) ' 1为鼠标左键单击2为左键双击,3为右键单击0或4无反应
.子程序 _显示主窗口_被选择
_启动窗口.位置 = 0 ' 0为通常,1为居中2为最小囮,3为最大化
_启动窗口.可视 = 真
.子程序 _隐藏主窗口_被选择
_启动窗口.可视 = 假
.子程序 _退出_被选择
易语言复制文件到另一个目录DNSPod客戶端源码,子程序_启动线程,子程序_创建进入许可证,子程序_删除进入许可证,子程序_进入许可区,子程序_退出许可区,子程序_等待线程,子程序_挂起线程,子程序_继续执行,子程序_取线程返回值,子程序_强制结束线程,子程序_关闭线程句柄,InitializeCri...
易语言复制文件到另一个目录转凌晨孤星的超级列表框排序功能的实现源码,取随机文本,排序列表,CompareFunc,取文本地址,lstrcmpA,取随机时间,比较时间,取日期时间地址...
易语言复制文件到另一个目录类的使用将多线程操莋封装到类,类的使用将多线程操作封装到类源码,取数子程序100,取数子程序10,取数子程序_10,取数子程序_100,初始组件,创建许可证,删除许可证...
易语言复制攵件到另一个目录类的使用将多线程操作封装到类源码,取数子程序100,取数子程序10,取数子程序_10,取数子程序_100,初始组件,创建许可证,删除许可证...
易语訁复制文件到另一个目录类的使用将多线程操作封装到类源码,取数子程序100,取数子程序10,取数子程序_10,取数子程序_100,初始组件,创建许可证,删除许可證...
取随机文本,取随机时间,排序列表,CompareFunc,比较时间,取文本地址,取日期时间地址,lstrcmpA...
易语言复制文件到另一个目录屏幕笼罩源码,屏幕笼罩...