Exception logging

[Delfino]

Yo lo hago con el componente TJvDebugHandler.

En el evento OnOtherDestination pongo el siguiente codigo :

Código Delphi [-]
 Application.MessageBox(PChar(ErrorHandler.ExceptionStringList[0] + #13#10 +
                              ErrorHandler.ExceptionStringList[1]), 'Error..', MB_ICONERROR);

Asi el usuario solo ve el mensaje del error.

El detalle del error con el numero de linea queda registrado en el fichero indicado en la propiedad Filename. Ademas la propiedad UnhandledExceptionsOnly hace que solo los errores no tratados en un bloque try..except sean mostrados.

Espero que sirva..