Como reiniciar (cerrar y volver a abrir) mi propio programa??

[dec]

Hola,

Empezado por AFilth

El problema es q intenta volver a abrir el programa antes de cerrarlo lo cual no es valido, ya q puede darme bastantes problemas.

Perdona, pero es totalmente válido: los problemas los tienes con la lógica de tu aplicación, probablemente. Quiero decir, que, no entiendo qué es lo que sucede realmente, pero, me pongo en situación, verás.

Tu aplicación guarda cierta información en archivos "Ini", pero no puede "aplicar" dicha configuración sino es cuando se inicia la aplicación: probablemente esto ya indica que algo podría hacerse de otro modo, pero, en todo caso, sigamos.

Antes de llamar a la rutina para reiniciar la aplicación tú guardas la información que sea menester en el archivo "Ini", entonces, ¿qué problema puede haber? No me lo imagino, puesto que cuando tu programa se inicie contará con la información necesaria en el archivo "Ini".

Por lo tanto algo está ocurriendo que tal vez no debería ocurrir o podría hacerse de tal forma que no diera esos problemas que dices que tienes: el problema, insisto, no está en el procedimiento que copié más arriba (porque de hecho se basa, como dije, en la librería Delphi Works y un procedimiento que se halla en esta).

De todos modos no te tomes lo que te digo a mal. Quizás estoy completamente equivocado y no pienso en qué hay que realizar exactamente y la problemática del tema: no lo conozco, solamente sé qué dices y a eso digo yo que no deberías tener problemas, insisto, si antes de llamar de "reiniciar" el programa tú ya escribiste en el archivo "Ini" la información precisa.

Tal vez se me escape algo (muy probablemente) pero no podía dejar de decir lo dicho Sin acritud, como suele decirse, solo por ver si puedo aportar algo y nada más. No hay otra intención.

[OSKR]

Hola Foro! tiempo sin verlos, creo que si podrias iniciar la aplicacion clon de la actual antes de cerrarla, pues puedes comunicarlas con paso de mensajes a través del RegisterWindowMessage, solo tendrias q parar el arranque de la secundaria desde código hasta q la primera le comunique q ya ha terminado (en otras palabras: la primera espera el momento en que la segunda tenga conciencia para terminar), por ejemplo esta aplicación evita ser ejecutada si ya existe otra instancia de ella:

UINT gmShutDown;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)

{ gmShutDown=RegisterWindowMessage("6FBFC81A-D32A-4B8D-BB60-0390470F82CF");

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,bool &Handled)

{ if(Msg.message == gmShutDown) //Recepción del mensaje de primera aplicación

Application->Terminate();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{ PostMessage(HWND_BROADCAST, gmShutDown, 0, 0); //Enviar el mensaje a las otras
//aplicaciones
}

Ojala te sirva!!!

[AFilth]

Buenas otra vez, en primer lugar gracias a todos. Veo q aqui hay autenticos expertos en Delphi

Dec el problema q te comentaba viene dado pq yo al intentar iniciar la aplicacion, tengo un control para q no se pueda hacer dos veces, al probarlo ya salta ese aviso y no se ejecuta el programa ya que al llamarlo el primero q se ejecuto aun no ha acabado.

Esto seria sencillo de controlar metiendo una variable q distinga ese caso de otro, pero este programa es bastante gordo (consume mucha memoria, tira de una BD de SQL Server muy muy grande, cxargha muchisimas cosas al arrancar...) y por ello no es factible arrancarlo por segunda vez si ya esta en ejecucion. En una maquina actual no daria problemas pero...en un PII o un PIII si no lo peta iria lentisimo.

No obstante gracias a todos por las respuestas, seguire investigando y probando lo q me habeis dicho y a ver si llego a alguna solucion.

Un saludo.