Hola:
Me gustar铆a saber si existe la manera de reiniciar una aplicaci贸n desde dentro de la misma. Hay situaciones como un cambio de idioma, coger datos de configuraci贸n,... que hacen necesario reiniciar la aplicaci贸n, y me gustar铆a saber como se hace.
Saludos,
Es una forma poco ortodoxa pero me funciona,
donde quieras que se reinicie tu aplicaci贸n,
1潞 llamas a un exe que va a volver a llamar a tu aplicaci贸n
2潞 te sales de la aplicaci贸n
Espero te sirva,
Saludos
.... tu codigo de tu aplicacion ...
Ejecuta("LlamaNuevoExe.EXE )
ErrorLevel(3)
PostQuitMessage(0)
__Quit()
.... fin
--- LlamaNuevoExe.EXE ---
// LLamaNuevoExe.prg s贸lo tiene una funci贸n y es llamar a tu aplicaci贸n.
function LlamaNuevoExe()
Ejecuta("TuAplicaci贸n.EXE")
Return nil
-- Function Ejecuta --
FUNCTION Ejecuta(cEjecuta, lSeparate)
LOCAL hInstance
DEFAULT lSeparate TO .F.
IF IsWinNT()
IF lSeparate
hInstance := WinExec("cmd.exe /c start /SEPARATE "+cEjecuta ,0)
ELSE
hInstance := WinExec("cmd.exe /c start "+cEjecuta ,0)
ENDIF
ELSE
hInstance := WinExec("Start "+cEjecuta ,0)
ENDIF
RETURN hInstance
Gracias Jes煤s. Lo que quiero hacer es que el mismo exe se llame a si mismo. Lo que me propones est谩 bien, pero no es lo que quiero hacer.
Saludos,
Jose Luis,
Con WinExec() podr铆as volver a ejecutar el EXE, luego darle foco a la nueva aplicaci贸n y finalmente terminar la primera.
De un modo esquem谩tico ser铆a asi:
WinExec( <aplicacion> )
SetFocus( <ventana_principal_aplicacion_nueva_instancia> )
<ventana_principal>:End()
Asi terminar铆a la actual, y la nueva quedar铆a activa.
Antonio:
驴 y como le doy foco a la nueva instancia de la aplicaci贸n ?
Puedes usar FindWindow() para encontrar el handle de la ventana.
Posiblemente habr铆a que esperar un poco desde que arrancas la aplicaci贸n con WinExec() hasta que la ventana se crea y est谩 visible.
Habr铆a que revisar las opciones de WinExec() 贸 usar alguna funci贸n que aguarde un cierto tiempo (Sleep(), bucle con SysRefresh(), etc.)
