DiskSize

en en en

函式功能及說明

首部 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;