procedure TForm1.FormCreate(Sender: TObject);

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);

        ComboBox1.Items.Add(str);

       end;

    end;

    drivers:=(drivers shr 1);

    temp:=(1 and Drivers);

  end;

end;