文件磁盘相关函数[15]-获取磁盘空间信息 WinAPI:GetDiskFreeSpaceEx;

最新推荐文章于 2020-09-07 16:34:16 发布

weixin_30411997

最新推荐文章于 2020-09-07 16:34:16 发布

阅读量158

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/keyvip/archive/2010/11/06/1870485.html

本文介绍了一个使用Delphi实现的磁盘空间信息获取方法。通过调用WinAPI中的GetDiskFreeSpaceEx函数，可以准确地获取指定磁盘分区的可用空间、总空间及剩余空间，并以GB为单位展示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码如下：

procedure TForm1.N19Click(Sender: TObject);
//获取磁盘空间信息 WinAPI:GetDiskFreeSpaceEx;
var
  dfree,dg,p: int64;
begin
  if GetDiskFreeSpaceEx('f:',dfree,dg,@p) then
  begin
    Memo1.Clear;
    with Memo1.Lines do
    begin
      Add('F盘磁盘信息：');
      Add('');
      Add(Format('可用空间 %f GB',[dfree/1024/1024/1024]));
      Add(Format('总空间 %f GB',[dg/1024/1024/1024]));
      Add(Format('剩余空间 %f GB',[p/1024/1024/1024]));
    end;
  end
  else
  ShowMessage('获取磁盘空间信息失败');
end;

下面是函数分析：

GetDiskFreeSpaceEx(  
　　lpDirectoryName: PChar;　　　　　　　　　//磁盘根路径,如'c:'  
　　var lpFreeBytesAvailableToCaller: Int64; //可用空间  
　　var lpTotalNumberOfBytes: Int64;　　　 //总空间  
　　TotalFree: PInt64;　　　　　　//剩余空间，此参数可为NULL  
　　): BOOL;             //如果函数成功，返回值为非零，否则为零

转载于:https://www.cnblogs.com/keyvip/archive/2010/11/06/1870485.html