易语言虚拟驱动器

系统结构:列盘符,取虚拟信息,永久虚拟,取驱动器符,取驱动器数,取短文件名,取长路径名,

======主程序
           |  |
           |  |------ 列盘符
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 取虚拟信息
           |  |
           |  |------ 永久虚拟
           |  |
           |  |------ _添加按钮_被单击
           |  |
           |  |------ _退出按钮_被单击
           |  |
           |  |------ _虚拟硬盘_被选择
           |  |
           |  |------ _虚拟软盘_被选择
           |  |
           |  |------ _添加选定盘_被选择
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _添加最小盘_被选择
           |  |
           |  |------ _编程语言_被选择
           |  |
           |  |------ _关于_被选择
           |  |
           |  |------ _删除按钮_被单击
           |  |
           |  |------ _永久按钮_被单击
           |  |
           |  |------ _删除选定盘_被选择
           |  |
           |  |------ _删除所有盘_被选择
           |  |
           |  |------ _列表框2_列表项被选择
           |  |
           |  |
======易语言
           |  |
           |  |------ _易语言窗口_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取驱动器符
           |  |
           |  |---[dll]------   取驱动器数
           |  |
           |  |---[dll]------   取短文件名
           |  |
           |  |---[dll]------   取长路径名

调用的DLL命令:

.DLL命令 取驱动器符, 整数型, , "GetLogicalDriveStringsA"
    .参数 缓冲数值, 整数型
    .参数 驱动器符, 文本型

.DLL命令 取驱动器数, 整数型, , "GetLogicalDrives"

.DLL命令 取短文件名, 整数型, "kernel32", "GetShortPathNameA", , 返回短文件名长度
    .参数 全路径名, 文本型
    .参数 短路径名, 文本型
    .参数 短路径长度, 整数型

.DLL命令 取长路径名, 整数型, "kernel32", "GetLongPathNameA"
    .参数 短路径名, 文本型
    .参数 长路径名, 文本型
    .参数 长路径长度, 整数型