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 format函数的用法

Delphi 两个非常有用的进程函数

Delphi tms web core直接从html&css设计的页面布局

strpcopy 将字符串复制到字符数组中

Delphi apihook createprocess

Delphi messagebox 使用

Delphi中move 函数额用法

Delphi工具之tdump

Delphi2009 使用 png 图片

webbrowser里网页根据文字判断来点击链接

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

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