DiskSize

基本介紹

• 中文名：DiskSize
• 功能：返回驅動器全部空間
• 說明： 參數Drive為0表示當前路徑
• 參考： function Windows

函式功能

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

功能 返回驅動器全部空間

說明 參數Drive為0表示當前路徑,為1表示=A驅,為2表示=B驅...;獲取失敗則返回-1

參考 function Windows.GetDiskFreeSpaceExA

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

空間示例

//獲取磁碟空間 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;