Uso y error de un TdriverComboBox

[Rako]

Hola, estoy usando un TDriverComboBox con un TDirectoryListBox. El caso es q en en el drivercombobox aparecen todas las unidades del PC, incluidos Cd-Rom, DVD y llaves USB.

Cuando seleccionas una de esas, salta el error "I/O error 21" y no veo donde se capturaria esa excepcion. (en el onchange del directoryList no llega ni a entrar)

O como se podria hacer para q solo aparecieran los discos duros "validos" ??

Muchas gracias por adealantado

[Rako]

Ya esta solucionado. El problema estaba en no poner en la propiedad Dirlist el directorylistbox para que no lo haga automatico y poder probar primero si peta o no.


procedure TTInicial.DriveComboBox1Change(Sender: TObject);
var
OldErrMode: DWORD;
begin
try
OldErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
DirectoryListBoxEx1.Drive := DriveCombobox1.Drive;
finally
SetErrorMode(OldErrMode);
end;
except on E: EInOutError do begin
DriveCombobox1.Drive := DirectoryListBoxEx1.Drive;
MessageDlg('No se ha podido cambiar a dicho dispositivo. Por favor seleccione uno correcto del disco duro', mtWarning, [mbOK], 0);
end;
end;
end;

[Rako]

Ya esta solucionado. El problema estaba en no poner en la propiedad Dirlist el directorylistbox para que no lo haga automatico y poder probar primero si peta o no.

procedure TTInicial.DriveComboBox1Change(Sender: TObject);
var
     OldErrMode: DWORD;
begin
     try
         OldErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
         try
             DirectoryListBoxEx1.Drive := DriveCombobox1.Drive;
         finally
             SetErrorMode(OldErrMode);
         end;
     except on E: EInOutError do begin
           DriveCombobox1.Drive := DirectoryListBoxEx1.Drive;
           MessageDlg('No se ha podido cambiar a dicho dispositivo. Por favor      seleccione uno correcto del disco duro', mtWarning, [mbOK], 0);
   end;
  end;
end;