Delphi調用WinAPI: GetDiskFreeSpaceEx - 獲取磁盤容量信息

//聲明:GetDiskFreeSpaceEx(
　lpDirectoryName: PChar;　　　　　　　　　　　　　{磁盤根路徑}
　var lpFreeBytesAvailableToCaller: TLargeInteger; {可用空間}
　var lpTotalNumberOfBytes: TLargeInteger;　　　　 {總空間}
　TotalFree: PLargeInteger　　　　　　　　　　　　 {剩余空間}
): BOOL;

//舉例:

procedure TForm1.FormCreate(Sender: TObject);
var
　d1,d2,d3: Int64;
begin
　GetDiskFreeSpaceEx('C:',d1,d2,@d3);
　Memo1.Clear;
　with Memo1.Lines do
　begin
　　Add(Format('可用空間: %f GB',[d1/1024/1024/1024]));
　　Add(Format('總空間: %f GB',[d2/1024/1024/1024]));
　　Add(Format('剩余空間: %f GB',[d3/1024/1024/1024]));
　end;
end;

//效果圖: