topic-2764

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Auto Ejecutar app.
Posted: Fri Apr 21, 2006 11:56 AM

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?

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

jnavas

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

Auto Ejecutar app.
Posted: Fri Apr 21, 2006 02:15 PM

Gustavo,

Prueba creando un nuevo exe que llame a tu aplicacion.
Al cerrar el exe1 llame al exe2 y el exe2 llame al exe1

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Auto Ejecutar app.
Posted: Fri Apr 21, 2006 03:34 PM

Estimado,

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

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

jnavas

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

Re:
Posted: Tue Jul 23, 2013 08:09 PM

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

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Auto Ejecutar app.
Posted: Wed Jul 24, 2013 12:44 PM

Code (fw): Select all Collapse

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion