Excepcion incontrolable al detectar medios extraibles

[[nlsgarcia]]

champy,

Revisa este código:

Código Delphi [-]
Procedure GetDrive(FileName : String);
var
   Driver: Pchar;
   i, Length: Integer;
   SearchFile : Boolean;
   OldErrorMode: word;
   searchResult : TSearchRec;

begin

   OldErrorMode:= SetErrorMode(SEM_NOOPENFILEERRORBOX or SEM_FAILCRITICALERRORS);

   SearchFile := False;
   GetMem(Driver, 100);
   Length := GetLogicalDriveStrings(100, Driver);

   try
      for i := 0 to Length-1 do
      begin
         if GetDriveType(Pchar(Driver[i] + ':\')) = DRIVE_REMOVABLE then
         begin
            if FindFirst(Driver[i] + ':\' + FileName, faArchive, searchResult) = 0 then
            begin
               MessageDlg('Archivo Sincronizado en Medio Removible', mtinformation, [mbok], 0);
               SearchFile := True;
               break;
            end;
         end;
      end;
   finally
      SetErrorMode(OldErrorMode);
      FreeMem(Driver);
      if not Searchfile then
         MessageDlg('Archivo No Sincronizado en Medio Removible', mtinformation, [mbok], 0)
   end;

end;

Esta variante combina dos flags de la función SetErrorMode y utiliza FindFirst para verificar si el archivo esta presente en la unidad.

Espero sea útil

Nelson.

[champy]

Al fin. Funcionó.

La función MicroSDPressent de eficsa me da True cuando la tarjeta está disponible sin sacar el mesajito del sistema.

SetErrorMode no estaba sirviendo de mucho, lo probe con todas las flags, supongo que por que no se trata de una excepcion propiamente dicha, es más bien un "Dialogo del sistema" indicando que la unidad no tiene disco.



En cualquier caso, ya está solucionado

Solo modifiqué la función para que me haga de comprobación de una unidad concreta, y listo, problema resuelto

Código Delphi [-]
function MicroSDPresent(i : char): Boolean;
var
  FName: string;
  Error: LongWord;
  Hnd  : THandle;
begin
 Error := SetErrorMode(SEM_FAILCRITICALERRORS);
  Result:= False;
    if GetDriveType(PChar(i+':\')) = DRIVE_REMOVABLE then
    begin
      FName:= Format('\\.\%s:\%s',[i,'@@@prueba@@@.txt']);
      Hnd:= CreateFile(PChar(FName),
              GENERIC_READ, 0, nil, CREATE_ALWAYS,
              FILE_ATTRIBUTE_NORMAL, 0);
      if Hnd <> INVALID_HANDLE_VALUE then
      begin
        Result := True;
        CloseHandle(Hnd);
        DeleteFile(PChar(FName));
      end;
    End;
  SetErrorMode(Error);
end;

Muchas gracias a todos los interesados, casi me sabe mal por cuanto me habeis ayudado.