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])+'; ';
      end;
    end;
    drivers:=(drivers shr 1);
    temp:=(1 and Drivers);
end;
result:=ss;
end;
编程环境：WindowsXP+Delphi7
 

相关阅读 >>

Delphi实现md5算法

Delphi 程序动态改变皮肤

Delphi 网上获取北京时间firedac 下的 sqlite [3] - 获取数据库的基本信息

Delphi fdmemtable1内存表字段排序

Delphi xe5 为android增加启动图片显示

Delphi 10.3 调试程序时出错：unable to create process:请求的操作需要提升

Delphi 新建文件 复制文件 重命名文件名时 文件存在自动重命名

dll 的静态调用实例代码

Delphi date 返回当前的日期

Delphi判断mssql数据库中表格是否存在？ 如何批量创建表格？

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

转载请注明出处：木庄网络博客 » delphi 获取系统的硬盘分区及使用信息