易语言API浏览文件夹模块源码

系统结构:选择文件夹,对话框消息处理,对话框消息处理2,取文档位置,取窗口标题,取标题,现行选中项,置句柄,打开对话框_,取打开文件名_,改变窗口_,发送消息_文本,获取特别文件夹位置_,寻找子窗口_,设置窗口标题_,取窗口标题_,目录是否存在_,取文件扩展名_,发送消息_整数,回调函数_指针,取父窗口_,置窗口状态_,设置窗口信息_指针,取内存变量地址_表项数据,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 选择文件夹
           |  |
           |  |------ 对话框消息处理
           |  |
           |  |------ 对话框消息处理2
           |  |
           |  |------ 取文档位置
           |  |
           |  |------ 取窗口标题
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======超级列表框类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 取标题
           |  |
           |  |------ 现行选中项
           |  |
           |  |------ 置句柄
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开对话框_
           |  |
           |  |---[dll]------   取打开文件名_
           |  |
           |  |---[dll]------   改变窗口_
           |  |
           |  |---[dll]------   发送消息_文本
           |  |
           |  |---[dll]------   获取特别文件夹位置_
           |  |
           |  |---[dll]------   寻找子窗口_
           |  |
           |  |---[dll]------   设置窗口标题_
           |  |
           |  |---[dll]------   取窗口标题_
           |  |
           |  |---[dll]------   目录是否存在_
           |  |
           |  |---[dll]------   取文件扩展名_
           |  |
           |  |---[dll]------   发送消息_整数
           |  |
           |  |---[dll]------   回调函数_指针
           |  |
           |  |---[dll]------   取父窗口_
           |  |
           |  |---[dll]------   置窗口状态_
           |  |
           |  |---[dll]------   设置窗口信息_指针
           |  |
           |  |---[dll]------   取内存变量地址_表项数据

调用的DLL命令:

.DLL命令 打开对话框_, 整数型, "comdlg32.dll", "GetOpenFileNameA"
    .参数 OpenFile, 打开文件名_

.DLL命令 取打开文件名_, 整数型, "msvfw32.dll", "GetOpenFileNamePreview"
    .参数 格式, 打开文件名_

.DLL命令 改变窗口_, 整数型, "user32.dll", "MoveWindow"
    .参数 窗口句柄, 整数型, , hwnd，欲移动窗口的句柄
    .参数 左侧位置, 整数型, , x，窗口新的左侧位置
    .参数 顶部位置, 整数型, , y，窗口新的顶部位置
    .参数 新宽度, 整数型, , nWidth，窗口的新宽度
    .参数 高宽度, 整数型, , nHeight，窗口的高宽度
    .参数 是否重画, 整数型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

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

.DLL命令 获取特别文件夹位置_, , , "SHGetSpecialFolderPathA"
    .参数 a
    .参数 b, 文本型
    .参数 c
    .参数 d

.DLL命令 寻找子窗口_, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口  找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
    .参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
    .参数 欲搜索的类名1, 文本型, , 欲搜索的类名。null 表示忽略
    .参数 欲搜索的类名2, 文本型, , 欲搜索的类名。null 表示忽略;

.DLL命令 设置窗口标题_, 整数型, "user32", "SetWindowTextA"
    .参数 窗口句柄, 整数型
    .参数 窗口标题, 文本型

.DLL命令 取窗口标题_, 整数型, "user32", "GetWindowTextA", , 取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）  复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲获取文字的那个窗口的句柄
    .参数 缓冲区, 文本型, , 预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
    .参数 缓冲尺寸, 整数型, , lp缓冲区的长度;

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

.DLL命令 取文件扩展名_, 文本型, "shlwapi.dll", "PathFindExtensionA", , 无扩展名返回空
    .参数 文件路径, 文本型, , pszPath

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

.DLL命令 回调函数_指针, 整数型, , "CallWindowProcA"
    .参数 程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 取父窗口_, 整数型, "user32", "GetParent", , 判断指定窗口的父窗口  父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;

.DLL命令 置窗口状态_, 整数型, , "ShowWindow", , 控制窗口的状态（在vb里使用：针对vb窗体及控件，请使用对应的vb属性） 成功:返回TRUE（非零），失败:返回FALSE（零）
    .参数 hwnd, 整数型, , 窗口句柄，要向这个窗口应用由命令
    .参数 nCmdShow, 整数型, , 0 隐藏  1 还原激活 2 最小化激活 3 最大化激活 4 还原（可视） 5 还原激活 6 最小化 7 最小化 8还原非激活 9 还原激活

.DLL命令 设置窗口信息_指针, 子程序指针, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 要置的特征, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 新特征, 子程序指针, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 取内存变量地址_表项数据, 整数型, "kernel32.dll", "lstrcpyn"
    .参数 目标, 表项数据, 传址
    .参数 源, 表项数据, 传址
    .参数 长度, 整数型