Se podra iniciar un programa por si solo despues de cerrarlo

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Se podra iniciar un programa por si solo despues de cerrarlo
Posted: Fri Jan 29, 2016 10:00 PM

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 :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Se podra iniciar un programa por si solo despues de cerrarlo
Posted: Fri Jan 29, 2016 10:37 PM

Aida, a ver si te sirve la idea para aplicarla

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Se podra iniciar un programa por si solo despues de cerrarlo
Posted: Sat Jan 30, 2016 03:34 PM

Haida intenta así

Code (fw): Select all Collapse

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

Saludos,

Adhemar

Saludos,

Adhemar C.

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Se podra iniciar un programa por si solo despues de cerrarlo
Posted: Sat Jan 30, 2016 06:22 PM

Hola

Que valor contiene cFileName ?

Code (fw): Select all Collapse

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

Saluditos

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Se podra iniciar un programa por si solo despues de cerrarlo
Posted: Sat Jan 30, 2016 08:01 PM

Aida:

Deduzco que debe ser el nombre de tu programa ejecutable.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Se podra iniciar un programa por si solo despues de cerrarlo
Posted: Sun Jan 31, 2016 12:13 AM

Ya funciona

Muchas gracias
Muchos kikos

Saluditos

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Se podra iniciar un programa por si solo despues de cerrarlo
Posted: Tue Feb 02, 2016 02:39 PM

acuellar wrote:Haida intenta así
Code (fw): Select all Collapse
 IF lFinBackup
         WinExec(hb_CurDrive()+":\"+CURDIR()+"\"+AllTrim(cFileName(HB_ARGV(0)))) 
        Quit
  Endif
Saludos,

Adhemar

Code (fw): Select all Collapse

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


<!-- l --><a class="postlink-local" href="http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31886">viewtopic.php?f=6&t=31886</a><!-- l -->
*/

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

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

FiveTech Support Forums

Continue the discussion