Como terminar de cerrar mi aplicación

[JerS]

Buenas amigos, aunque parezca loco pero necesito hacer que cuando mi aplicación genere un error o una excepción no se quede en el mensaje de error en la Aplicación sino que se cierre totalmente mi aplicación... ya que hice una pequeña aplicación que esta monitoriando todo el tiempo si mi aplicación esta activa o no, de no estarlo ella misma la vuelve a ejecutar y así mi aplicación principal siempre estara disponible

[[BlueSteel]]

Empezado por JerS

Buenas amigos, aunque parezca loco pero necesito hacer que cuando mi aplicación genere un error o una excepción no se quede en el mensaje de error en la Aplicación sino que se cierre totalmente mi aplicación... ya que hice una pequeña aplicación que esta monitoriando todo el tiempo si mi aplicación esta activa o no, de no estarlo ella misma la vuelve a ejecutar y así mi aplicación principal siempre estara disponible

creo que deberias trabajar con un exepción... y cuando suceda (la produce algun error), realizas el proceso de cerrar tu aplicación

Código Delphi [-]
Try
   ...//lo que hace tu aplicación
Except
   Close; //Cerrar la aplicación... aunque tambien puedes usar terminate
end;

Salu2

[JerS]

Empezado por BlueSteel

creo que deberias trabajar con un exepción... y cuando suceda (la produce algun error), realizas el proceso de cerrar tu aplicación

Código Delphi [-]Try ...//lo que hace tu aplicación
Except Close; //Cerrar la aplicación... aunque tambien puedes usar terminate
end;


Salu2

gracias por tu aporte BlueSteel pero lo que quiero es que si mi aplicación se cierra por cualquier evento, porque las execption las puedo manejar pero los errores no, y bueno tu sabes a uno se le pueden escapar uno que otro bugs

[roman]

Pero todo error, o casi, se convierte en una excepción. Los bloques try-except son sólo para que le puedas dar un manejo particular a una excepción determinada. Cualquier excepción que no esté manejada por uno de esos bloques lo maneja la aplicación y tú puedes interceptarla en el evento OnException de un componente TApplicationEvents:

Código Delphi [-]
procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
  Close;
end;

// Saludos