一 取任意分区的使用比率 i 取值 0 = Current, 1 = A, 2 = B, and so on. function SystemDisk(i: integer): Double; var AmtFree: Int64; Total: Int64; begin AmtFree := DiskFree(i); Total := DiskSize(i); Result := AmtFree / Total; end;