procedure TFileForm.GetDisks;
  var
  str:string;
  Drivers:Integer;
  driver:char;
  i,temp,disksizee:integer;
  d1,d2,d3,d4: DWORD;

    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);
              lbxDisks.Items.Add(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;
  end;

　SetErrorMode(oldMode);

end;