Ver Mensaje Individual
  #8  
Antiguo 09-12-2012
beginner01 beginner01 is offline
Miembro
NULL
 
Registrado: mar 2011
Ubicación: República Dominicana
Posts: 181
Reputación: 14
beginner01 Va por buen camino
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
Responder Con Cita