Uso y error de un TdriverComboBox
 

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

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;

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.