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