Ver Mensaje Individual
  #5  
Antiguo 09-10-2014
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Estoy de acuerdo con Casimiro, pero se que los usuarios no valoran la inversión en infraestructura si se puede "apañar" con parches aquí o allá.

Con respecto a un "capturador de excepciones", creo que puedes hacer esto en tu Formulario principal:

Código Delphi [-]
...
private
  procedure CapturaErrores(Sender: TObject; e: Exception);
...

procedure TFMPrincipal.FormCreate(Sender: TObject);
begin
  ...
  Application.OnException := CapturaErrores;
  ...
end;

procedure TFMPrincipal.CapturaErrores(Sender: TObject; e: Exception);
begin
  // Mensaje de error propio
  ShowMessage('Se ha producido un error no tratada. Se cerrará la aplicación');
  // Clase de excepción que se ha producido
  ShowMessage('Exception class name = '+E.ClassName);
  // Mensaje original de la excepción
  ShowMessage('Exception message = '+E.Message);
  // Cierro la aplicación
  Close;
end;
Responder Con Cita