易语言API取盘符例程

系统结构:PathFileExistsA,GetDriveType,GetLogicalDriveStrings,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   PathFileExistsA
           |  |
           |  |---[dll]------   GetDriveType
           |  |
           |  |---[dll]------   GetLogicalDriveStrings

调用的DLL命令:

.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表示中止（空中止）