Como puedo autoreiniciar mi aplicacion

[pjmedina]

Buenas a todos,

existe alguna forma de autoreiciar una aplicacion desde delphi 7.

Quiero que se cierre la aplicacion y que se abra de nuevo.

Saludos y gracias

[MAXIUM]

Con otro programa auxiliar, justo antes de que cierre la aplicación, arrancas con winexec por ejemplo, otra auxiliar. Esta se encarga de corroborar que este cerrada la aplicación principal y luego la vuelve a abrir.

Este es un ejemplo, estudialo

Código Delphi [-]
program Bypass;

{$APPTYPE CONSOLE}

uses Windows;

Var
   Ventana: HWND;
Begin
  // verifica que la aplicación principal este cerrada
     Repeat
           Ventana:= FindWindow(nil, PChar('Mi aplicación principal'));
     Until Ventana = 0;

  // La vuelve a abrir.
     WinExec(PChar('aplicación.exe'), SW_HIDE);
End.

[pjmedina]

Lo probaré.

Gracias por contestar.

[MAXIUM]

Ojo, ese el código del archivo auxiliar.

[dec]

Hola,

Prueba este truco a ver si te sirve también.

[roman]

David,

Pensé algo similar al truco que refieres, pero al ver la respuesta de Maxium, consideré que quizá es más adecuada, porque puede ser importante esperar a que la instancia anterior esté completamente cerrada. Por ejemplo, podríamos tenr un mecanismo para impedir la ejecución simultánea de dos instancias de la aplicación, y el hecho de que la primera ande viva todavía podría impedir el correcto reinicio.

// Saludos

[Khronos]

Mediante un Mutex, Semáforo o incluso un FileMapping puedes hacer lo que deseas fácilmente


Saludos.

[roman]

¿Lograr qué? El reinicio de la aplicación. ¿Cómo?

// Saludos

[pjmedina]

Empezado por dec

Hola,

Prueba este truco a ver si te sirve también.

Buenas David,

he probado el truco pero no me funciona del todo. Me cierra la aplicación pero no me la abre de nuevo.

Saludos.

[pjmedina]

MAXIUM he utilizado tu código, le he hecho un par de arreglillos y va bien.

Paso el codigo por si alguien lo necesita.
Saludos y gracias por todo.

Código Delphi [-]
program Reconectar;
{$APPTYPE CONSOLE}
uses
  Windows,
  dateutils,
  SysUtils;
Var
  Ventana: HWND;
  Fini,Fact:TDateTime;
  napp,app:String;
  sg,tiempolimite:integer;
  Function CalculaTiempo(FechaIni: TDateTime; FechaFin: TDatetime):Integer;
  var
   sg:integer;
   ValorFecha: real;
  begin
    ValorFecha:=FechaFin-FechaIni;
    sg:=trunc(ValorFecha*24*60*60);
    CalculaTiempo:=sg;
  end;
Begin
  fini:=Now;
  napp:='Nombre de la aplicacion';
  app:='ejecutable.exe';
  tiempolimite:=30;//tiempo limite para la ejección del programa
   // verifica que la aplicación principal este cerrada
   Repeat
     Fact:=Now;
     sg:=CalculaTiempo(Fini,Fact);
     //sg contiene el numero de segundos transcurridos desde que se inicio la app.
     ventana:=FindWindow(nil, PChar(napp));
   Until((ventana<=0)or(sg>tiempolimite));
 
   //Si no se ha excedido el tiempo limite la vuelve a abrir.
   if sg<=tiempolimite then
      WinExec(PChar(app), SW_SHOWNORMAL);
End.

La llamada a este programa seria:

Código Delphi [-]
var
  ruta:string;
begin
  ruta:='Reconectar.exe';//Nombre de la aplicacion escrita anteriormente
  WinExec(PChar(ruta),SW_HIDE);
  close;//cerramos la aplicacion actual para volverla a abrir
end;

[Khronos]

Otra forma sería así:

Código Delphi [-]
program Project1;

uses
  Windows, Forms, Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var
  hMutex: THandle;
begin
  hMutex:= OpenMutex(MUTEX_ALL_ACCESS, false, pchar('APP'));
  If hMutex = 0 then
    begin
      CreateMutex(nil, true, pchar('APP'));
      WinExec(pchar(paramstr(0)), SW_SHOWNORMAL);
      ExitProcess(0);
    end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

EDITO: Luego en el evento OnClose del Form principal pondríamos algo así: CloseHandle(hMutex);

Saludos.

[rgstuamigo]

Empezado por pjmedina

Buenas David,

he probado el truco pero no me funciona del todo. Me cierra la aplicación pero no me la abre de nuevo.

Saludos.

A mi me funciona de maravilla;... no se por que a vos no?
Claro que le agregue una linea de codigo mas, lo que pasa es cuando llamas nuevamente a la aplicacion para que se inicie en realidad la anterior no se cerro todavia y por tal motivo en la pantalla se visualiza aun en un cierto tiempo,por eso le agregue una linea de codigo mas al truco de dec y quedó asi:

Código Delphi [-]
Procedure ReiniciarAplicacion();
begin
 Application.MainForm.Hide;//escondo el formulario principal
 WinExec(PChar(ParamStr(0)), SW_NORMAL);
 TerminateProcess(GetCurrentProcess, 0);
end;

Funciona perfectamente y es poco codigo ¿no creen?.
Saludos....