易语言浏览网络文件夹源码

系统结构:GetBrowseNetworkShare,GetBrowseNetworkWorkstation,TrimNull,取字节长度_,从列表id取路径_,浏览文件夹对话框_,获取特别文件夹位置_,释放分配内容_,取内存变量地址3_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ GetBrowseNetworkShare
           |  |
           |  |------ GetBrowseNetworkWorkstation
           |  |
           |  |------ TrimNull
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _超级链接框1_鼠标左键被按下
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取字节长度_
           |  |
           |  |---[dll]------   从列表id取路径_
           |  |
           |  |---[dll]------   浏览文件夹对话框_
           |  |
           |  |---[dll]------   获取特别文件夹位置_
           |  |
           |  |---[dll]------   释放分配内容_
           |  |
           |  |---[dll]------   取内存变量地址3_

调用的DLL命令:

.DLL命令 取字节长度_, 整数型, "kernel32.dll", "lstrlenW"
    .参数 待取参数, 整数型, , lpString

.DLL命令 从列表id取路径_, 整数型, "shell32.dll", "SHGetPathFromIDListA"
    .参数 结构指针, 整数型, , pIdl
    .参数 路径, 文本型, 传址, pszPath

.DLL命令 浏览文件夹对话框_, 整数型, "shell32.dll", "SHBrowseForFolderA"
    .参数 浏览文件夹结构, 文件夹信息_

.DLL命令 获取特别文件夹位置_, 整数型, "shell32.dll", "SHGetSpecialFolderLocation"
    .参数 窗口句柄, 整数型, , hwndOwner
    .参数 文件夹位置, 整数型, , nFolder
    .参数 结构, 整数型, 传址, pIdl

.DLL命令 释放分配内容_, , "ole32.dll", "CoTaskMemFree", , CoTaskMemFree
    .参数 内存块指针, 整数型, , pv

.DLL命令 取内存变量地址3_, 整数型, "kernel32", "lstrcpynA"
    .参数 数据1, 文本型, , lpString1
    .参数 数据2, 整数型, , lpString2
    .参数 数据长度, 整数型, , iMaxLength