易语言远程浏览文件夹源码

系统结构:发送数据包,处理数据,机器信息,文件服务,机器信息,CPU_取型号,硬盘_取容量,文件服务,文件_取盘符,发送数据包,处理数据,API_GetProcessHeap,GetProcessHeap,PathFileExistsA,GetDriveType,GetLogicalDriveStrings,HeapAlloc,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _服务器1_客户进入
           |  |
           |  |------ _服务器1_客户离开
           |  |
           |  |------ _树型框1_项目被选择
           |  |
           |  |------ _服务器1_数据到达
           |  |
           |  |------ _选择夹1_被单击
           |  |
           |  |------ _超级列表框2_被双击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _超级列表框2_右键单击表项
           |  |
           |  |------ _下载文件_被选择
           |  |
           |  |
======程序集1
           |  |
           |  |------ 发送数据包
           |  |
           |  |------ 处理数据
           |  |
           |  |------ 机器信息
           |  |
           |  |------ 文件服务
  ======窗口程序集1
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _客户1_数据到达
           |  |
           |  |------ _客户1_连接断开
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 机器信息
           |  |
           |  |------ CPU_取型号
           |  |
           |  |------ 硬盘_取容量
           |  |
           |  |------ 文件服务
           |  |
           |  |------ 文件_取盘符
           |  |
           |  |
======程序集2
           |  |
           |  |------ 发送数据包
           |  |
           |  |------ 处理数据
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_GetProcessHeap
           |  |
           |  |---[dll]------   GetProcessHeap
           |  |
           |  |---[dll]------   PathFileExistsA
           |  |
           |  |---[dll]------   GetDriveType
           |  |
           |  |---[dll]------   GetLogicalDriveStrings
           |  |
           |  |---[dll]------   HeapAlloc

调用的DLL命令:

.DLL命令 API_GetProcessHeap, 整数型, "kernel32", "GetProcessHeap", , 获取调用过程堆句柄

.DLL命令 GetProcessHeap, 整数型, "kernel32", "GetProcessHeap", , 获取调用过程堆句柄

.DLL命令 PathFileExistsA, 整数型, "shlwapi.dll", "PathFileExistsA", , 判断一个目录是否存在 0不存在
    .参数 目录名, 文本型

.DLL命令 GetDriveType, 整数型, , "GetDriveTypeA", , 1=驱动器不存在 DRIVE_REMOVABLE=2=抽取式磁盘 DRIVE_FIXED=3=固定硬盘 DRIVE_REMOTE=4=远程(网络)储存装置 DRIVE_CDROM=5=光驱 DRIVE_RAMDISK=6=可能指内存或虚拟盘
    .参数 驱动器, 文本型

.DLL命令 GetLogicalDriveStrings, 整数型, "kernel32.dll", "GetLogicalDriveStringsA", , 装载到lpBuffer的字符数量（排除空中止字符）。如缓冲区的长度不够，不能容下路径，则返回值就变成要求的缓冲区大小。零表示失败。会设置GetLastError
    .参数 nBufferLength, 整数型, , lpBuffer字串的长度
    .参数 lpBuffer, 字节集, , 用于装载逻辑驱动器名称的字串。每个名字都用一个NULL字符分隔，在最后一个名字后面用两个NULL表示中止（空中止）  

.DLL命令 HeapAlloc, 整数型, "kernel32", "HeapAlloc", , 从堆中分配内存
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 dwBytes, 整数型