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

新浏览文件夹模块

系统结构:新浏览文件夹,回调函数,SHBrowseForFolder,SHGetPathFromIDList,SendMessage,

======初始化程序集
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======功能程序集
| |
| |------ 新浏览文件夹
| |
| |------ 回调函数
| |
| |
======调用的Dll
| |
| |---[dll]------ SHBrowseForFolder
| |
| |---[dll]------ SHGetPathFromIDList
| |
| |---[dll]------ SendMessage

调用的DLL命令:

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

.DLL命令 SHGetPathFromIDList, 整数型, , "SHGetPathFromIDListA"
.参数 pIdl, 整数型
.参数 pszPath, 文本型, 传址

.DLL命令 SendMessage, 整数型, , "SendMessageA"
.参数 hwnd
.参数 wMsg
.参数 wParam
.参数 lParam, 文本型, 传址