易语言Word文件检测源码

系统结构:浏览对话框,查找文件并保存文件名,在超级列表框中显示,Word文件头检定,打开检定,导出清单,CompareFunc,SHBrowseForFolder,SHGetPathFromIDList,取文本地址,lstrcmpA,目录是否存在_,

======对话框程序集
           |  |
           |  |------ 浏览对话框
           |  |
           |  |
======程序集1
           |  |
           |  |------ 查找文件并保存文件名
           |  |
           |  |------ 在超级列表框中显示
           |  |
           |  |------ Word文件头检定
           |  |
           |  |------ 打开检定
           |  |
           |  |------ 导出清单
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _选择原目录_被选择
           |  |
           |  |------ _设置目录_被选择
           |  |
           |  |------ _显示超级列表框_表头被单击
           |  |
           |  |------ CompareFunc
           |  |
           |  |------ _开始检验_被选择
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _保存清单_被选择
           |  |
           |  |------ _超级列表框1_表头被单击
           |  |
           |  |------ _自动改名_被选择
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _浏览1_被单击
           |  |
           |  |------ _浏览2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _窗口_目录设置_创建完毕
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |------ _编辑框2_内容被改变
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _窗口_进度_将被销毁
           |  |
           |  |------ _窗口_进度_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SHBrowseForFolder
           |  |
           |  |---[dll]------   SHGetPathFromIDList
           |  |
           |  |---[dll]------   取文本地址
           |  |
           |  |---[dll]------   lstrcmpA
           |  |
           |  |---[dll]------   目录是否存在_

调用的DLL命令:

.DLL命令 SHBrowseForFolder, 整数型, "shell32.dll", "SHBrowseForFolderA"
    .参数 lpBrowseInfo, BROWSEINFO

.DLL命令 SHGetPathFromIDList, 整数型, "shell32.dll", "SHGetPathFromIDListA"
    .参数 pidl, 整数型
    .参数 pszPath, 文本型

.DLL命令 取文本地址, 整数型, , "lstrcpynA"
    .参数 lpString1, 文本型, 传址
    .参数 lpString2, 文本型, 传址
    .参数 iMaxLength, 整数型

.DLL命令 lstrcmpA, 整数型
    .参数 lpString1, 整数型
    .参数 lpString2, 整数型

.DLL命令 目录是否存在_, 整数型, "shlwapi.dll", "PathIsDirectoryA", , 存在返回真，不存在返回假
    .参数 路径文本, 文本型, , pszPath