Excepcion incontrolable al detectar medios extraibles

[beginner01]

Hola.

Prueba con este código.

Código Delphi [-]
var
   Letra: Char;
   OldErrorMode: word;
begin

  OldErrorMode:= SetErrorMode(SEM_FAILCRITICALERRORS);
  try

    for Letra:= 'C' to 'J' do
    begin

        if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE then
        begin

               //Solo es una prueba de acceder a la SD
               If FileExists(Letra+':\prueba.txt') then
                  ShowMessage('Tengo la SD, ahora sincronizo');
        end;
    end;

  finally
    SetErrorMode(OldErrorMode);
  end;

end;

SetErrorMode MSDN