易语言定位文件夹源码

系统结构:浏览文件目录,浏览文件目录2,CoCreateInstance,CoInitialize,SHOpenFolderAndSelectItems,SHGetMalloc,CoUninitialize,ILCreateFromPathA,ILFree,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 浏览文件目录
           |  |
           |  |------ 浏览文件目录2
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CoCreateInstance
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   SHOpenFolderAndSelectItems
           |  |
           |  |---[dll]------   SHGetMalloc
           |  |
           |  |---[dll]------   CoUninitialize
           |  |
           |  |---[dll]------   ILCreateFromPathA
           |  |
           |  |---[dll]------   ILFree

调用的DLL命令:

.DLL命令 CoCreateInstance, 整数型, "ole32.dll", "CoCreateInstance"
    .参数 rclsid, 字节集
    .参数 pUnkOuter, 整数型
    .参数 dwClsContext, 整数型
    .参数 riid, 字节集
    .参数 ppv, 整数型, 传址

.DLL命令 CoInitialize, , "ole32.dll", "CoInitialize"
    .参数 pvReserved, 整数型

.DLL命令 SHOpenFolderAndSelectItems, 整数型, "shell32.dll", "SHOpenFolderAndSelectItems"
    .参数 arg1, 整数型
    .参数 arg2, 整数型
    .参数 arg3, 整数型
    .参数 arg4, 整数型

.DLL命令 SHGetMalloc, , "shell32.dll", "SHGetMalloc"
    .参数 ppMalloc, 整数型, 传址

.DLL命令 CoUninitialize, , "ole32.dll", "CoUninitialize"

.DLL命令 ILCreateFromPathA, 整数型, "Shell32", "ILCreateFromPathA"
    .参数 lpFileName, 文本型

.DLL命令 ILFree, , "Shell32", "ILFree"
    .参数 lngPidl, 整数型