Auto Ejecutar app.

[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?

[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

[goosfancito]

Estimado,

Lo ideal seria que el mismo programa se auto-recargue.

[jnavas]

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()

[karinha]

Code: Select all  Expand view

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. )