易语言高级浏览文件夹模块源码 [db:版本]

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

系统结构:浏览文件夹_高级,A2U,U2A,CoTaskMemFree,SHGetPathFromIDList,SHBrowseForFolder,SHGetSpecialFolderLocation,SHGetFolderPath,SHGetFolderLocation,ILCreateFromPathW,ILFree,MultiByteToWideChar,WideCharToMultiByte,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 浏览文件夹_高级
| |
| |------ A2U
| |
| |------ U2A
| |
| |
======调用的Dll
| |
| |---[dll]------ CoTaskMemFree
| |
| |---[dll]------ SHGetPathFromIDList
| |
| |---[dll]------ SHBrowseForFolder
| |
| |---[dll]------ SHGetSpecialFolderLocation
| |
| |---[dll]------ SHGetFolderPath
| |
| |---[dll]------ SHGetFolderLocation
| |
| |---[dll]------ ILCreateFromPathW
| |
| |---[dll]------ ILFree
| |
| |---[dll]------ MultiByteToWideChar
| |
| |---[dll]------ WideCharToMultiByte

调用的DLL命令:

.DLL命令 CoTaskMemFree, , "ole32"
.参数 pv, 整数型

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

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

.DLL命令 SHGetSpecialFolderLocation, 整数型, "shell32"
.参数 hwndOwner, 整数型
.参数 nFolder, 整数型
.参数 pidl, ITEMIDLIST, 传址

.DLL命令 SHGetFolderPath, 整数型, "shell32", "SHGetFolderPathA"
.参数 hwndOwner, 整数型
.参数 nFolder, 整数型
.参数 hToken, 整数型
.参数 dwReserved, 整数型
.参数 lpszPath, 文本型

.DLL命令 SHGetFolderLocation, 整数型, "shell32"
.参数 hwndOwner, 整数型
.参数 nFolder, 整数型
.参数 hToken, 整数型
.参数 dwReserved, 整数型
.参数 pidl, ITEMIDLIST, 传址

.DLL命令 ILCreateFromPathW, 整数型, , "ILCreateFromPathW"
.参数 pwszPath, 字节集

.DLL命令 ILFree, , , "ILFree"
.参数 pidl, 整数型

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpMultiByteStr, 文本型
.参数 cchMultiByte, 整数型
.参数 lpWideCharStr, 字节集
.参数 cchWideChar, 整数型

.DLL命令 WideCharToMultiByte, 整数型, , "WideCharToMultiByte", 公开, 返回 MultiByte字符数目,包括结尾0
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpWideCharStr, 整数型
.参数 cchWideChar, 整数型
.参数 lpMultiByteStr, 文本型
.参数 cchMultiByte, 整数型
.参数 unknow, 整数型
.参数 unknow, 整数型