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

易语言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是该函数的“类型安全”声明形式 由具体的消息决定
.参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
.参数 信息值, 整数型, , 消息的标识符
.参数 参数一, 整数型, , 具体取决于消息
.参数 参数二, 文本型, , 具体取决于消息;

.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是该函数的“类型安全”声明形式 由具体的消息决定
.参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
.参数 信息值, 整数型, , 消息的标识符
.参数 参数一, 整数型, , 具体取决于消息
.参数 参数二, 整数型, , 具体取决于消息;

.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"
.参数 目标, 表项数据, 传址
.参数 源, 表项数据, 传址
.参数 长度, 整数型