Se podra iniciar un programa por si solo despues de cerrarlo

[AIDA]

Hola

Se podrá iniciar un programa por si solo después de cerrarlo

tengo que cerrar bases de datos al hacer un respaldo y de ahí se cierra todo el programa
abra alguna manera que este mismo programa se reinicie solo sin que el usuario le tenga que ejecutar


Saluditos

[cnavarro]

Aida, a ver si te sirve la idea para aplicarla

http://bielsys.blogspot.com.es/2009/04/ ... ca-de.html

[acuellar]

Haida intenta así

Code: Select all  Expand view

 IF lFinBackup
         WinExec(hb_CurDrive()+":\"+CURDIR()+"\"+AllTrim(cFileName(HB_ARGV(0))))
        Quit
  Endif

Saludos,

Adhemar

[AIDA]

Hola

Que valor contiene cFileName ?

Code: Select all  Expand view

IF lFinBackup
         WinExec(hb_CurDrive()+":\"+CURDIR()+"\"+AllTrim(cFileName(HB_ARGV(0))))
        Quit
  Endif

Saluditos

[Armando]

Aida:

Deduzco que debe ser el nombre de tu programa ejecutable.

Saludos

[AIDA]

Ya funciona




Muchas gracias
Muchos kikos


Saluditos

[karinha]

Haida intenta así

Code: Select all  Expand view

 IF lFinBackup
         WinExec(hb_CurDrive()+":\"+CURDIR()+"\"+AllTrim(cFileName(HB_ARGV(0))))
        Quit
  Endif

Saludos,

Adhemar

Code: Select all  Expand view

/*
Se podra iniciar un programa por si solo despues de cerrarlo


viewtopic.php?f=6&t=31886
*/

#include "FiveWin.ch"

static oWnd, lFinBackup := .T.

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

function Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "Fecha Aplicativo"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION( oWnd:End(), CLOSE_EXE() )

   SET MESSAGE OF oWnd TO "Fecha Aplicativo" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

   oWnd:End()

return nil

FUNCTION CLOSE_EXE()

   LOCAL cFileName := "FECHAAPP.EXE"

   IF lFinBackup

      oWnd:End()

      #ifdef __XHARBOUR__  // Usando xHarbour

         WinExec(CurDrive()+":\"+CURDIR()+"\"+AllTrim(cFileName(HB_ARGV(0))))

      #else  // usando Harbour

         WinExec(hb_CurDrive()+":\"+CURDIR()+"\"+AllTrim(cFileName(HB_ARGV(0))))

      #endif

      RELEASE All

      Hb_GCAll( .T. )

      CLEAR MEMORY

      PostQuitMessage( 0 )

      __QUIT()

   Endif

RETURN NL


Gracias, saludos.