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 盘驱动器的容量了。
此外,一些其他的驱动器信息可以通过目录操作函数来获得。