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;

 
 
 
 
 

 

 
  

//效果图: