Listar unidades disponibles con Filtro

[MaMu]

Esto me servirá, si tengo conectado por USB un lector de memorias? Es lo unico que se me ocurrió en base a lo que anduve leyendo en el foro.

Código Delphi [-]
procedure GetDrivers;
var
  i ,j, nUnidad: integer;
  cRutaIni : String;
  DType : Integer;
  DriveString : String;
 begin
  j := 0;
  for i:=65 to 90 do
  begin
    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;
      //Filtro las unidades, use los string, pero lo puedo hacer segun el valor de Dtype, con integers
       if (DriveString<>' Sin Directorio Raiz') and  (DriveString<>' Unidad de Disco') and (DriveString<>' Unidad de Red')
    then begin
       Form1.Memo1.Lines.Add(cRutaIni+' '+DriveString);
       end;
   end;
end;

Nota: el lector de memorias, lo tengo fijo, no lo desconecto nunca.

Saludos y Gracias