Tratamiento de errores entorno al API de Windows

[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.

[dec]

Hola,

Sí; los tiros van por donde apuntas Román. Se ve que la función de marras del API de Windows muestra el mensaje de error... a no ser que se indique (véase más arriba) específicamente que no muestre mensajes de error.

[roman]

Al parecer GetLastError siempre regresará cero. No obstante ShFileOperation devuelve un valor distinto de cero en caso de error. De ahí puedes partir.

// Saludos

[dec]

Hola,

De ahí parto Román... o es la intención: como "ShFileOperation" retorna "no cero"... busco el error con "GetLastError", pero, no parece estar ahí.

[[seoane]]

Pues a mi lo que me preocupa es que hace esta instruccion:

Código Delphi [-]
TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorFalse);

Fíjate que la instrucción GetLastError no solo muestra el ultimo error, sino el ultimo resultado de una operación de la api. Así que si dentro de esa rutina se llama, aunque solo sea indirectamente, a una API, GetLastError nos estaría devolviendo ese resultado y no el error que nos interesa.

[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