Page 1 of 1
Auto Ejecutar app.
Posted: Fri Apr 21, 2006 11:56 am
by goosfancito
Estimados,
Si quiero que una applicacion cuando presione un boton se cierre y vuelva a ejecutarse ( por ejemplo para tomar nuevos parámetros ) como debo hacer?
Posted: Fri Apr 21, 2006 2:15 pm
by jnavas
Gustavo,
Prueba creando un nuevo exe que llame a tu aplicacion.
Al cerrar el exe1 llame al exe2 y el exe2 llame al exe1
Posted: Fri Apr 21, 2006 3:34 pm
by goosfancito
Estimado,
Lo ideal seria que el mismo programa se auto-recargue.
Re:
Posted: Tue Jul 23, 2013 8:09 pm
by jnavas
goosfancito wrote:Estimado,
Lo ideal seria que el mismo programa se auto-recargue.
Colega
Creas una function INICIO()
No es necesario salir del sistema, borra todas variables CLEAR ALL, cierra todos los archivos, formularios y llamas a la funcion INCIO()
Re: Auto Ejecutar app.
Posted: Wed Jul 24, 2013 12:44 pm
by karinha
Code: Select all
FUNCTION LLAMA_EXECUTABLE()
LOCAL Nome_Arq, nRegistro
PUBLIC XDA, lDesligaIndex := .F.
/*
MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+;
OemToAnsi( "PRECISO DESLIGAR O PROGRAMA PARA PEGAR OS " )+CRLF+;
OemToAnsi( "NOVOS INDICES E AS CONFIGURAیES DE CAIXA. " )+CRLF+;
OemToAnsi( "TECLE <ENTER> PARA CONTINUAR POR FAVOR. " ), ;
OemToAnsi( "Reinicializa‡Æo do Programa - Configura‡äes." ) )
*/
FreeResources() // Set Resources To
Release All
SysRefresh()
MemoryFlush()
AEVAL(DIRECTORY( "VENTAS.BAT" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )
// NOMBRE DE TU PROGRAMA
IF !FILE( "VENTAS.BAT" )
NOME_ARQ := FCREATE("VENTAS.BAT")
NREGISTRO := "@ECHO OFF" ;
+ CRLF + ;
"CLS" + ;
+ CRLF + CRLF + ;
"VENTAS.EXE" + ;
+ CRLF + CRLF + ;
"CLS" + ;
+ CRLF + ;
"EXIT"
FWRITE( NOME_ARQ, NREGISTRO )
FCLOSE( NOME_ARQ )
ENDIF
DBCLOSEALL()
WinExec( "VENTAS.BAT", 1 )
__Quit()
RETURN( .T. )