Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como terminar de cerrar mi aplicación (https://www.clubdelphi.com/foros/showthread.php?t=57685)

JerS 25-06-2008 00:32:41

Como terminar de cerrar mi aplicación
 
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 25-06-2008 00:35:25

Cita:

Empezado por JerS (Mensaje 295874)
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

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

Salu2:p:D

JerS 25-06-2008 00:41:50

Cita:

Empezado por BlueSteel (Mensaje 295875)
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: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 25-06-2008 02:33:46

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


La franja horaria es GMT +2. Ahora son las 10:24:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi