取电脑硬盘容量

取电脑硬盘容量例子。
句柄 ＝ CreateFile (“\\.\PhysicalDrive” ＋ disk, 2147483648, 1, 0, 3, 0, 0)
.如果真 (DeviceIoControl (句柄, 458752, 0, 0, 类型, 128, 0, 0) ＝ 0)
CloseHandle (句柄)
返回 (“getdiskinfoerror”)
.如果真结束
CloseHandle (句柄)
返回 (到文本 (四舍五入 (类型.Cylinders × 类型.TracksPerCylinder × 类型.SectorsPerTrack × 类型.BytesPerSector ÷ 1073741824, 0)) ＋ “G”)