Delphi如何获取硬盘所有的分区容量

本文整理自网络，侵删。

 
function GetDiskInfo:string;    // 获取硬盘信息
var str:string;
    Drivers:Integer;
    driver:char;
    i,temp:integer;
    d1,d2,d3,d4: DWORD;       //
    ss:string;
begin
  ss:='';
  Drivers:=GetLogicalDrives;
  temp:=(1 and Drivers);
  for i:=0 to 26 do
  begin
    if temp=1 then
    begin
      driver:=char(i+integer('A'));
      str:=driver+':';
      if (driver<>'') and (getdrivetype(pchar(str))<>drive_cdrom) and (getdrivetype(pchar(str))<>DRIVE_REMOVABLE) then
      begin
        GetDiskFreeSpace(pchar(str),d1,d2,d3,d4);
        ss:=ss+str+Format('容量: %f GB,',[d4/1024/1024/1024*d2*d1])+Format('剩余容量: %f GB',[d3/1024/1024/1024*d2*d1])+#13#10;
      end;
    end;
    drivers:=(drivers shr 1);
    temp:=(1 and Drivers);
  end;
  result:=ss;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:=GetDiskInfo;
end;
显示结果：
C:容量:  30.01 GB,剩余容量: 8.01 GB
D:容量: 125.00 GB,剩余容量: 4.03 GB
E:容量: 125.00 GB,剩余容量: 5.83 GB
F:容量:  18.07 GB,剩余容量: 0.61 GB

 

相关阅读 >>

Delphi 安卓读写ini文件

Delphi 虚拟键码对照表

Delphi 自定义colorbox只显示指定颜色项目 colorbox显示中文颜色名称

delph i判断ip地址是否正确

Delphi 内进行音量控制及静音

Delphi 解决android 9上无法使用http协议

Delphi 使用资源文件

Delphi 在桌面上画图

Delphi webbrowser用记事本查看源代码

Delphi获取默认浏览器

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi如何获取硬盘所有的分区容量