易语言飞狐文件同步模块源码

系统结构:开始进度复制,停止进度复制,停止同步目录,开始同步目录,创建多级目录,打开指定文件,关闭指定文件,取出文件时间,设置文件时间,全文本替换,取行右边,回调子程序,RunProc,取文本指针,取出指定文件时间,打开或创建文件,关闭文件对象,本地时间转换为系统时间,文件时间转换为本地时间,系统时间转换为本地时间,设置指定文件时间,本地时间转换为文件时间,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 开始进度复制
           |  |
           |  |------ 停止进度复制
           |  |
           |  |------ 停止同步目录
           |  |
           |  |------ 开始同步目录
           |  |
           |  |------ 创建多级目录
           |  |
           |  |------ 打开指定文件
           |  |
           |  |------ 关闭指定文件
           |  |
           |  |------ 取出文件时间
           |  |
           |  |------ 设置文件时间
           |  |
           |  |
======内部程序集
           |  |
           |  |------ 全文本替换
           |  |
           |  |------ 取行右边
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口_创建完毕
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _窗口_将被销毁
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮6_被单击
           |  |
           |  |------ 回调子程序
           |  |
           |  |------ _按钮7_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RunProc
           |  |
           |  |---[dll]------   取文本指针
           |  |
           |  |---[dll]------   取出指定文件时间
           |  |
           |  |---[dll]------   打开或创建文件
           |  |
           |  |---[dll]------   关闭文件对象
           |  |
           |  |---[dll]------   本地时间转换为系统时间
           |  |
           |  |---[dll]------   文件时间转换为本地时间
           |  |
           |  |---[dll]------   系统时间转换为本地时间
           |  |
           |  |---[dll]------   设置指定文件时间
           |  |
           |  |---[dll]------   本地时间转换为文件时间

调用的DLL命令:

.DLL命令 RunProc, 整数型, , "CallWindowProcA"
    .参数 hproc, 子程序指针
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wp, 整数型
    .参数 lp, 整数型

.DLL命令 取文本指针, 整数型, , "lstrcpyn"
    .参数 目的指针, 文本型, 传址
    .参数 源指针, 文本型, 传址
    .参数 复制长度, 整数型, , 0

.DLL命令 取出指定文件时间, 整数型, "kernel32", "GetFileTime", , 非0表示成功
    .参数 文件号, 整数型
    .参数 创建时间, 文件时间, , UTC格式的文件时间，下同
    .参数 访问时间, 文件时间
    .参数 修改时间, 文件时间

.DLL命令 打开或创建文件, 整数型, "kernel32", "CreateFileA", , 返回文件号，非0表示成功
    .参数 文件名, 文本型
    .参数 打开方式, 整数型
    .参数 共亨方式, 整数型
    .参数 security特性, 整数型, , 0
    .参数 创建还是打开, 整数型
    .参数 文件属性, 整数型, , 0
    .参数 指定句柄, 整数型, , 0

.DLL命令 关闭文件对象, 整数型, , "CloseHandle", , 非0表示成功
    .参数 文件名柄, 整数型

.DLL命令 本地时间转换为系统时间, 整数型, "kernel32", "FileTimeToSystemTime", , 把本地格式的文件时间转换为系统时间，非0表示成功
    .参数 文件时间, 文件时间, , 本地格式的文件时间
    .参数 系统时间, 系统时间

.DLL命令 文件时间转换为本地时间, 整数型, "kernel32", "FileTimeToLocalFileTime", , 把UTC格式的文件时间转换为本地格式的文件时间，非0表示成功
    .参数 文件时间, 文件时间, , UTC格式的文件时间
    .参数 本地时间, 文件时间, , 本地格式的文件时间

.DLL命令 系统时间转换为本地时间, 整数型, "kernel32", "SystemTimeToFileTime", , 把系统时间转换为本地格式的文件时间，非0表示成功
    .参数 系统时间, 系统时间
    .参数 文件时间, 文件时间, , 本地格式的文件时间

.DLL命令 设置指定文件时间, 整数型, "kernel32", "SetFileTime", , 非0表示成功。
    .参数 文件号, 整数型
    .参数 创建时间, 文件时间, , 本地格式的文件时间，下同
    .参数 访问时间, 文件时间
    .参数 修改时间, 文件时间

.DLL命令 本地时间转换为文件时间, 整数型, "kernel32", "LocalFileTimeToFileTime", , 把本地格式的文件时间转换为UTC格式的文件时间，非0表示成功
    .参数 本地时间, 文件时间, , 本地格式的文件时间
    .参数 文件时间, 文件时间, , UTC格式的文件时间