Ayuda con Unidades

[Jesús Pena]

Estoy desarrollando una "cosilla" en la que muestro las unidades que tengo instaladas en mi ordenador y dependiendo del tipo muestro un icono u otro. El problema lo tengo en que no sé como diferenciar una unidad de cd con una de dvd y ¿como puedo saber que un disco está conectado a través de un puerto USB?. La rutina que tengo es esta

Código Delphi [-]
procedure TfrmInfoSys.GetDrivers;
var
  i ,j, nUnidad: integer;
  cRutaIni : String;
  DType : Integer;
  DriveString : String;
  tvNodo : TTreeNode;
begin
  GroupBox7.Height := 185;
  ProgressBar1.MinValue := 65;
  ProgressBar1.MaxValue := 90;
  TreeView1.Items.Clear;
  j := 0;
  for i:=65 to 90 do
  begin
    ProgressBar1.Progress := i;
    cRutaIni:= chr(i) + ':\';
    DType := GetDriveType(Pchar(cRutaIni));
    case DType of
         0               : DriveString := ' Disco No Reconocido';
         1               : DriveString := ' Sin Directorio Raiz';
         DRIVE_REMOVABLE : DriveString := ' Unidad de Diskette';
         DRIVE_FIXED     : DriveString := ' Unidad de Disco';
         DRIVE_REMOTE    : DriveString := ' Unidad de Red';
         DRIVE_CDROM     : DriveString := ' Unidad de CD-ROM';
         DRIVE_RAMDISK   : DriveString := ' Unidad de Disco RAM';
    end;
    if not ((DType = 0) or (DType = 1)) then
    begin
      tvNodo := TreeView1.Items.Add(nil,chr(i) + ': ' +DriveString) ; //(DriveString,ImageList1);
      with tvNodo do
      begin
        case DType of
             DRIVE_REMOVABLE : ImageIndex := 6;
             DRIVE_FIXED     : ImageIndex := 2;
             DRIVE_REMOTE    : ImageIndex := 1;
             DRIVE_CDROM     : ImageIndex := 4;
             DRIVE_RAMDISK   : ImageIndex := 0;
        end;
      end;
      inc(j);
      nUnidad := i - 64; {Corresponde al número de unidad}
      tvNodo.SelectedIndex := tvNodo.ImageIndex;
//      tvNodo.StateIndex := tvNodo.ImageIndex;
      GetDriveInfo(nUnidad,cRutaIni,tvNodo);
    end;
  end;
  TreeView1.AutoExpand := True;
  TreeView1.ShowButtons := True;
  TreeView1.FullCollapse;
  GroupBox7.Height := 157;
end;

[DarKraZY]

Tal vez te sirva de ayuda los ejemplos de ShellControls que vienen con Delphi. Los componentes creo recordar que están en la carpeta Samples. Y aunque por defecto no está el código fuente, puedes encontrolo dentro de la carpeta "demos" de Delphi.