Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:13:19
delphi获取指定磁盘中剩余空间

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 盘驱动器的容量了。

此外，一些其他的驱动器信息可以通过目录操作函数来获得。

赞