Tratamiento de errores entorno al API de Windows

[dec]

Hola,

Je, je, je... Sí. No sé si he dicho antes que la función "ShFileOperation" es mucha función... que necesito leer la ayuda, vamos.

Sin embargo... parece que en este caso "Win32Check" puede ayudarnos. Resulta que esta función "comprueba" que la instrucción que encierra se ejecuta correctamente, y, cuando no es así, se levanta una excepción.

En el caso que nos ocupa es una excepción del tipo "EOSError", con el mensaje "manejador inválido" (no existe la carpeta, será). Bueno. Estupendo... creo que hoy he aprendido gracias a todos algo que no sabía.

Código Delphi [-]
  try
    if Win32Check((ShFileOperation(FileOp) = 0)) then
      TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorTrue)
  except
    on E: Exception do begin
      TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorFalse);
      TNbUtilities.FijarVariable(rsVarUltimoError,Format(rsErrorExcepciones,[E.ClassName,E.Message]));
    end;
  end;

Gracias a todos pataliebres.