|
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;
|