易语言在线更新模块源码

系统结构:测试升级,列表显示,更新进度,在线更新,进度下载指针,取默认版本,取版本是否一致,程序自我更新,取Dos文件名,创建多层目录,GetShortPathName,取目录属性_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 测试升级
           |  |
           |  |------ 列表显示
           |  |
           |  |------ 更新进度
           |  |
           |  |
======更新程序集
           |  |
           |  |------ 在线更新
           |  |
           |  |------ 进度下载指针
           |  |
           |  |------ 取默认版本
           |  |
           |  |------ 取版本是否一致
           |  |
           |  |
======接口程序集
           |  |
           |  |------ 程序自我更新
           |  |
           |  |------ 取Dos文件名
           |  |
           |  |------ _全文本替换
           |  |
           |  |------ _目录是否存在
           |  |
           |  |------ 创建多层目录
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetShortPathName
           |  |
           |  |---[dll]------   取目录属性_

调用的DLL命令:

.DLL命令 GetShortPathName, 整数型, "kernel32", "GetShortPathNameA", , 调用格式： 〈整数型〉 GetShortPathName （文本型［lpszLongPath］，文本型［lpszShortPath］，整数型［cchBuffer］），返回：［路径长度］文件存在，［0］文件不存在
    .参数 lpszLongPath, 文本型, 传址, 本参数为： 欲取Dos文件名的文件名称文本
    .参数 lpszShortPath, 文本型, 传址, 本参数为： 取Dos文件名结果的存放变量文本，其他命令定义并载入到此处
    .参数 cchBuffer, 整数型, , 本参数为： 取文本长度 (lpszLongPath)，整数型

.DLL命令 取目录属性_, 整数型, "shlwapi.dll", "PathIsDirectoryA", , 调用格式： 〈整数型〉 取目录属性_ （文本型［路径文本］），※不支持文件，存在返回［目录属性］数值，不存在返回［0］
    .参数 路径文本, 文本型, , 本参数为： 目录路径文本