WinAPI: GetDiskFreeSpace - 获取磁盘组织与容量信息

weixin_34355881

于 2008-02-11 14:55:00 发布

阅读量418

点赞数

文章标签： c/c++

本文介绍了一个使用Delphi实现的获取磁盘空间信息的方法，包括剩余空间和总空间的计算，并提供了一个示例程序来展示如何调用GetDiskFreeSpace函数获取磁盘的详细空间信息。

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

//声明:
GetDiskFreeSpace(
  lpRootPathName: PChar;             {磁盘根路径}
  var lpSectorsPerCluster: DWORD;    {一个簇内的扇区数}
  var lpBytesPerSector: DWORD;       {一个扇区内的字节数}
  var lpNumberOfFreeClusters: DWORD; {剩余簇数}
  var lpTotalNumberOfClusters: DWORD {总簇数}
): BOOL;


//举例:
procedure TForm1.FormCreate(Sender: TObject);
var
  d1,d2,d3,d4: DWORD;
begin
  GetDiskFreeSpace('C:',d1,d2,d3,d4);

  {以下只是显示}
  Memo1.Clear;
  with Memo1.Lines do
  begin
    Add(Format('一个簇内的扇区数: %d',[d1]));
    Add(Format('一个扇区内的字节数: %d',[d2]));
    Add(Format('剩余簇数: %d',[d3]));
    Add(Format('总簇数: %d',[d4]));
    Add(Format('剩余空间: %f GB',[d3/1024/1024/1024*d2*d1]));
    Add(Format('总空间: %f GB',[d4/1024/1024/1024*d2*d1]));
  end;
end;


//效果图: