易语言打乱文件数据源码

系统结构:搜索文件,取文件名,取后缀名,打乱支持库,浏览目录回调处理,找编辑框,自定义浏览文件夹,PathIsDirectoryA,SendMessage,SendMessage1,取当前窗口句柄,浏览文件夹函数,取文件夹信息,查找子窗口,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 搜索文件
           |  |
           |  |------ 取文件名
           |  |
           |  |------ 取后缀名
           |  |
           |  |------ 打乱支持库
           |  |
           |  |------ 浏览目录回调处理
           |  |
           |  |------ 找编辑框
           |  |
           |  |------ 自定义浏览文件夹
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   PathIsDirectoryA
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SendMessage1
           |  |
           |  |---[dll]------   取当前窗口句柄
           |  |
           |  |---[dll]------   浏览文件夹函数
           |  |
           |  |---[dll]------   取文件夹信息
           |  |
           |  |---[dll]------   查找子窗口

调用的DLL命令:

.DLL命令 PathIsDirectoryA, 逻辑型, "shlwapi.dll", "PathIsDirectoryA"
    .参数 pszPath, 文本型

.DLL命令 SendMessage, 整数型, , "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， 
    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 逻辑型, , 具体取决于消息
    .参数 参数二, 文本型, , 具体取决于消息

.DLL命令 SendMessage1, 整数型, , "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， 
    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 文本型, , 具体取决于消息

.DLL命令 取当前窗口句柄, 整数型, , "GetForegroundWindow", , 获得前台窗口的句柄。这里的“前台窗口”是指前台应用程序的活动窗口　前台窗口的句柄

.DLL命令 浏览文件夹函数, 整数型, "shell32.dll", "SHBrowseForFolder", , 　此函数返回值是指向项目（ITEM）的一个指针，有了这个数值，再用API函数SHGetPathFromIDList可以获得具体的路径，如果用户按的是“取消”按钮，则返回值为NULL。
    .参数 lpbi, 浏览信息, 传址

.DLL命令 取文件夹信息, 整数型, "shell32.dll", "SHGetPathFromIDList", , 　
    .参数 pidl, 整数型, ,  
    .参数 pszPath, 文本型

.DLL命令 查找子窗口, 整数型, , "FindWindowExA"
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 文本型
    .参数 lpsz2, 整数型