Ayuda con error en DriveComboBox

[ecfisa]

Empezado por danielmj

¿existe alguna forma de que la aplicación reconozca solo los discos duros con sus particiones?

Si.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  Dev: DWORD;
  Uni: string;
  i  : Integer;
begin
  Dev:= GetLogicalDrives;
  for i:= 1 to 32 do
    if Dev shr i and 1 = 1 then
    begin
      Uni:= Chr(Ord('A') + i) + ':';
      if GetDriveType(PChar(Uni)) = DRIVE_FIXED then
        ComboBox1.Items.Add(Uni);
   end;
  ComboBox1.ItemIndex := 0;
end;

Con respecto al problema que mencionas, ignoro que puede pasarte. Como te comenté me funciona correctamente...

Saludos

[danielmj]

Hola ecfisa, perdona por tardar en responder. Ya probe tu código para que se muestren solo los discos duros, funciona perfectamente. Gracias.

Saludos.