【开源】取硬盘逻辑分区序号

阿杰

.版本 2

.DLL命令 GetVolumeInformation, 整数型, "kernel32", "GetVolumeInformationA"
    .参数 lpRootPathName, 文本型
    .参数 lpVolumeNameBuffer, 文本型
    .参数 nVolumeNameSize, 整数型
    .参数 lpVolumeSerialNumber, 整数型, 传址
    .参数 lpMaximumComponentLength, 整数型, 传址
    .参数 lpFileSystemFlags, 整数型, 传址
    .参数 lpFileSystemNameBuffer, 文本型, , 分区格式:也可设为空
    .参数 nFileSystemNameSize, 整数型

.版本 2
.支持库 spec

.子程序 取逻辑分区序号, 文本型
.参数 盘符, 文本型
.局部变量 文件系统, 文本型
.局部变量 卷标, 文本型
.局部变量 序列号, 长整数型

文件系统 ＝ 取空白文本 (255)
卷标 ＝ 取空白文本 (255)
取序列号 (盘符, 卷标, 255, 序列号, 0, 0, 文件系统, 255)
返回 (到文本 (序列号))

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 sTmp, 文本型

.计次循环首 (26, i)

    sTmp ＝ 取逻辑分区序号 (字符 (i ＋ 64) ＋ “:\”)
    .如果真 (sTmp ≠ “0”)
        调试输出 (字符 (i ＋ 64) ＋ “===>” ＋ sTmp)
    .如果真结束

.计次循环尾 ()

[此贴子已经被作者于2009-8-29 11:42:56编辑过]

马大哈

现在怎么感觉挺别扭,哈哈

阿杰

我还是比较喜欢易语言的IDE编程环境的