求做一个取本机磁盘信息，并用进度条表示每个磁盘剩余空间

北国1

要求的功能如题，要求的样子如下图

梦雨心君

.子程序 枚举硬盘, 整数型, 公开,
.参数 磁盘名称, 文本型,  可空 数组, 变量储存返回值。

.子程序 取PNP设备ID, 文本型, 公开, Windows逻辑设备的即插即用设备标识符。
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取SCSI端口, 文本型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取SCSI逻辑单元, 文本型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取SCSI目标ID, 文本型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取SCSI总线, 文本型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取磁道扇区, 整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取分区数, 整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取固件版本, 文本型, 公开, 这个属性不支持Server 2003系统。
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取接口类型, 文本型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取媒体类型, 文本型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取描述, 文本型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取扇区字节, 整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取索引, 整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取特征字, 整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取型号, 文本型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取序列号, 文本型, 公开, 这个属性不支持Server 2003系统。
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取制造商, 文本型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取柱面磁道, 整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取总大小, 长整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取总的磁道数, 长整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取总的扇区数, 长整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 取总的柱面数, 长整数型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。

.子程序 是否加载媒体, 逻辑型, 公开,
.参数 硬盘名称, 文本型,   , 由 枚举硬盘 命令返回。


补充内容 (2016-6-4 19:23):
取出C盘的总大小用来当作进度条的最大位置，把已使用设置为当前位置，出来的就是你图上的效果。

补充内容 (2016-6-4 19:24):
用的是精易模块的 类_磁盘信息

易正易则

做个简单例子给你，至于美化，你自己去弄

北国1

fanr5201314 发表于 2016-6-4 19:52
做个简单例子给你，至于美化，你自己去弄

感觉要是把外形框和图片框替换成进度条，以总磁盘容量比磁盘剩余容量的百分百即可

补充内容 (2016-6-4 23:17):
能解决百分比这个问题吗？

补充内容 (2016-6-10 10:56):
还有，我想把驱动器框换成标签，意思就是用标签的方式来表示每个盘

补充内容 (2016-6-10 10:57):
每个盘剩余空间都单独取出来（那个百分比问题我自己已经解决了）

北国1

梦雨心君 发表于 2016-6-4 19:22
.子程序 枚举硬盘, 整数型, 公开,
.参数 磁盘名称, 文本型,  可空 数组, 变量储存返回值。

可以做出来吗？

1828902364

前来学习一下,

彡Ksjsd风云

厉害那边厉害那边厉害那边厉害那边厉害那边厉害那边厉害那边厉害那边厉害那边厉害那边厉害那边厉害那边厉害那边

yakeyun

不错不错，学习了

hhj130

看看学习学习

氢原子

感谢各位老哥的源代码 哎呀妈呀真想