Tratamiento de errores entorno al API de Windows

[dec]

Hola,

¿Qué tal va eso? Espero que bien.

Veréis. Tengo un problema. Resulta que cuando uno trabaja con componentes y ejecuta sus métodos y tal, bueno, el tratamiento de errores suele consistir en estar al tanto de las excepciones que puedan producirse.

Ahora bien, cuando uno trata con el API de Windows directamente, me parece que no pueden esperarse excepciones, sino "errores del sistema", que no pueden capturarse, por tanto, como si fueran excepciones.

Pondré un ejemplo. Si uno ejecuta la función "ShFileOperation" para borrar un archivo, por ejemplo, obtendrá un error del sistema si el archivo a borrar no existe. Pero no vale de nada (parece ser) hacer algo como:

Código Delphi [-]
try
  ShFileOperation();
except
  // Capturamos la excepción
end;

Porque, sencillamente, no es posible capturar ninguna excepción... pero el sistema sí advierte del error, y no sólo lo hace retornando un valor distinto de cero con la función susomentada, pero muestra un mensaje de error... que no queda muy curioso, porque además es de los típicos crípticos que muestra Windows...

Hombre. Se entiende que algo ha ido mal. Incluso llega a comprenderse por el mensaje de error (después de darle la vuelta a las palabras) que lo que ocurre es que no puede borrarse un archivo que no existe, pero, ¿hay alguna forma de evitar este mensaje error?

Obviamente no de evitarlo "como si no hubiera pasado nada", sino evitarlo en el sentido de hacérselo llegar al usuario por otros medios, en alguna variable, por ejemplo, no mediante un mensaje que uno no controla...

Así que me pregunto cómo pueden tratarse este tipo de errores, para los cuales no existen excepciones. Conozco funciones como "GetLastError", pero, no me queda muy claro su uso. De hecho siguiendo con el ejemplo, trato de "capturar" el error mediante esta función, pero, no lo consigo...

A ver si me podéis echar una mano monstruos, y bueno, a todo aquél que como yo está perdido en este asunto.

Gracias de antemano pataliebres. Buenos días, buenas tardes o buenas noches, dependiendo de donde estén vuecencias.

[[egostar]]

Hola David

No se si esto te pudiera servir.

Salud OS.

[dec]

Hola,

Te agradezco el enlace egostar. Curiosamente, el autor del código visto estaría en las mismas que yo, puesto que escribe algo muy similar a lo que yo mismo escribo:

   iSHerr = SHFileOperation (&shfos);
   if (iSHerr == 0)
      AfxMessageBox ("Worked fine");
   else
   {
      wsprintf (szDebug, "SHFO gave error %d", GetLastError());
      AfxMessageBox (szDebug);
   }

Bien. El caso es que, efectivamente, la función "SHFileOperation" no retornará cero en caso de error, así que el código:

      wsprintf (szDebug, "SHFO gave error %d", GetLastError());
      AfxMessageBox (szDebug);

... se ejecutaría en caso de que la función "SHFileOperation" fallase. Pero el tema está en que también aparecería un mensaje de error del sistema... sin que uno, aparentemente, pueda hacer nada por evitarlo.

Y añadiré algo más aún... haciendo algo más o menos así:

Código Delphi [-]
begin

  if SHFileOperation() = 0 then
    TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorTrue)
  else
  begin
    TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorFalse);
    TNbUtilities.FijarVariable(rsVarUltimoError,SysErrorMessage(GetLastError()));
  end;

Si no existe la carpeta a borrar (suponiendo que esto es lo que vamos a hacer), efectivamente, se ejecuta el "else" del código de más arriba, pero, ¡el mensaje que obtengo de "SysErrorMessage" es "La operación se completó correctamente"...

O sea... definitivamente algo se me escapa en todo esto. Pero gracias egostar, verás como al final sacamos algo en claro entre todos.

[[seoane]]

Empezado por dec

... se ejecutaría en caso de que la función "SHFileOperation" fallase. Pero el tema está en que también aparecería un mensaje de error del sistema... sin que uno, aparentemente, pueda hacer nada por evitarlo.

Te fijaste que usa el flag FOF_NOERRORUI

[dec]

Hola,

Empezado por Seoane

Te fijaste que usa el flag FOF_NOERRORUI

Eh... pues no, la verdad. Y tiene muy buena pinta. Gracias Seoane. La probaré enseguida. Pero, sin embargo, me queda la duda de que cuando la función falla (porque no existe la carpeta a borrar) no recibo el mensaje adecuado con "GetLastError", puesto que este es "La operación se completó correctamente", cuando no es así...

Voy a probar esa "bandera". Gracias otra vez Seoane.

[dec]

Hola,

Gracias Seoane. Funciona estupendamente la bandera "FOF_NOERRORUI".

Ya no muestra el mensaje de error del sistema. Peeeeeeeeeero... sigo obteniendo como "último error" un "Operación completada correctamente"... aunque ahora mismo ya no sé muy bien qué pensar de esto, puesto que estoy un poco eufórico tras haber solucionado en buena medida el asunto con la banderita de marras.

[roman]

Yo lo veo difícil. Imagina que tú haces una dll con una función HazEsto que hace esto:

Código Delphi [-]
function HazEsto(): Integer;
begin
  ShowMessage('Esto es un error, a ver cómo lo ocultas, je, je, je');
  Result := 1;
end;

A lo que voy es: como no provea la misma api de esa función, un mecanismo para omitir los mensajes de error, no veo por donde pueda evitarse. Bueno, yo supongo que seoane puede inyectar un código a shellapi, pero habrá que esperar a que lea esto.

// Saludos

[roman]

Ja, ja, juro que no había las dos respuestas anteriores cuando escribí la mía. Pero ya veo que sí se provee el mecanismo que mencioné.

// Saludos