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 :D

[BlueSteel]

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 :D

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

Try
...//lo que hace tu aplicación
Except
Close; //Cerrar la aplicación... aunque tambien puedes usar terminate
end;

Salu2:p:D

[JerS]

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 [-] (http://www.clubdelphi.com/foros/#)Try ...//lo que hace tu aplicación
Except Close; //Cerrar la aplicación... aunque tambien puedes usar terminate
end;


Salu2:p:D

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:


procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
Close;
end;


// Saludos