|
发表于 2010-11-18 20:02:50
|
显示全部楼层
广东省广州市
.版本 2
.DLL命令 GetLogicalDriveStrings, 整数型, "kernel32.dll", "GetLogicalDriveStringsA"
.参数 nBufferLength, 整数型
.参数 lpBuffer, 字节集, ,
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 所有盘符, 字节集
.局部变量 盘符, 字节集, , "0"
.局部变量 返回值, 整数型
.局部变量 索引, 整数型
.局部变量 空间, 整数型
所有盘符 = 取空白字节集 (256)
返回值 = GetLogicalDriveStrings (256, 所有盘符)
所有盘符 = 取字节集左边 (所有盘符, 返回值)
盘符 = 分割字节集 (所有盘符, { 0 }, )
.计次循环首 (取数组成员数 (盘符), 索引)
调试输出 (到文本 (盘符 [索引]))
调试输出 (取磁盘总空间 (到文本 (盘符 [索引])) ÷ 1024 ÷ 1024)
空间 = 空间 + 取磁盘总空间 (到文本 (盘符 [索引])) ÷ 1024 ÷ 1024
.计次循环尾 ()
调试输出 (“本硬盘空间为:” + 到文本 (空间) + “GB”) |
|