|
http://125.confly.eu.org/forum.php?mod= ... 13996392&extra=- .版本 2
- .支持库 eAPI
- .支持库 spec
- .子程序 _按钮1_被单击
- .局部变量 盘符, 文本型, , "0"
- .局部变量 a, 整数型
- .局部变量 信息, 硬盘信息
- .局部变量 剩余量, 整数型
- .局部变量 全部量, 整数型
- .局部变量 盘符名, 文本型
- ' 调试输出 (取驱动器数量 (1))
- 盘符 = 取驱动器列表 (1)
- .计次循环首 (取数组成员数 (盘符), a)
- ' 盘符名 = 盘符 [a] + “\”
- 全部量 = 取磁盘总空间 (盘符 [a])
- 剩余量 = 取磁盘剩余空间 (盘符 [a])
- 标签1.标题 = “共:” + 到文本 (四舍五入 (全部量 ÷ 1024 ÷ 1024, 1)) + “ GB”
- 标签2.标题 = 到文本 (四舍五入 (剩余量 ÷ 1024 ÷ 1024, 1)) + “ GB ” + “可用,”
- 进度条1.最大位置 = 到整数 (四舍五入 (全部量 ÷ 1024 ÷ 1024, 1))
- 进度条1.位置 = 到整数 (四舍五入 (剩余量 ÷ 1024 ÷ 1024, 1))
- 标签3.标题 = 取磁盘卷标 (盘符 [a]) + “( ” + 盘符 [a] + “ )”
- 延迟 (500)
- .如果真 (a > 3)
- 全部量 = 取磁盘总空间 (盘符 [1])
- 剩余量 = 取磁盘剩余空间 (盘符 [1])
- 标签1.标题 = “共” + 到文本 (四舍五入 (全部量 ÷ 1024 ÷ 1024, 1)) + “ GB”
- 标签2.标题 = 到文本 (四舍五入 (剩余量 ÷ 1024 ÷ 1024, 1)) + “ GB ” + “可用,”
- 进度条1.最大位置 = 到整数 (四舍五入 (全部量 ÷ 1024 ÷ 1024, 1))
- 进度条1.位置 = 到整数 (四舍五入 (剩余量 ÷ 1024 ÷ 1024, 1))
- 标签3.标题 = 取磁盘卷标 (盘符 [1]) + “( ” + 盘符 [1] + “ )”
- .如果真结束
- .计次循环尾 ()
复制代码 |
评分
-
查看全部评分
|