函数功能及说明

DiskSize、DiskFree 获取磁盘空间示例

函数功能及说明

首部 function DiskSize(Drive: Byte): Int64; $[SysUtils.pas

功能 返回驱动器全部空间

说明 参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1

参考 function Windows.GetDiskFreeSpaceExA

例子 SpinEdit1.Value := DiskSize(SpinEdit2.Value);

DiskSize、DiskFree 获取磁盘空间示例

//获取磁盘空间 DiskSize; DiskFree

var

r: Real;

s: string;

begin

r := DiskSize(3); //获取C:总空间, 单位是字节

r := r/1024/1024/1024;

Str(r:0:2,s); //格式为保留两位小数的字符串

s := 'C盘总空间是: ' + s + ' GB';

ShowMessage(s); //xx.xx GB

r := DiskFree(3); //获取C:可用空间

r := r/1024/1024/1024;

Str(r:0:2,s);

s := 'C盘可用空间是: ' + s + ' GB';

ShowMessage(s); //xx.xx GB

end;

=====================

function DiskSize(Drive: Byte): Int64;

var

FreeSpace: Int64;

begin

if not InternalGetDiskSpace(Drive, Result, FreeSpace) then

Result := -1;

end;

{$ENDIF}

function DiskFree(Drive: Byte): Int64;

var

TotalSpace: Int64;

begin

if not InternalGetDiskSpace(Drive, TotalSpace, Result) then

Result := -1;

end;