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.
