delphi获取指定磁盘中剩余空间|DiskFree 函数

DiskFree 函数
获取指定驱动器中剩余空间的字节数。函数原型如下：
function DiskFree(Drive: Byte): Int64;
Drive 参数的取值从0 开始，分别代表当前驱动器、A、B、C 等驱动器，如果返回值为-1，则代表此驱动器不存在。下面的代码取出了C 盘驱动器的剩余空间的字节数：
var
I:Int64;
begin
I:=DiskFree(3);
ShowMessage(IntToStr(I));
end;
DiskSize 函数
获取指定驱动器容量，单位为字节数。函数原型如下：
function DiskSize(Drive: Byte): Int64;
DiskSize 函数的用法与DiskFree 函数一样，其Drive 参数的取值也相同，将上面代码中的DiskFree更换为DiskSize 就能够获得C 盘驱动器的容量了。
此外，一些其他的驱动器信息可以通过目录操作函数来获得。