FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
wilsongamboa
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Mon Sep 01, 2025 01:55 PM

buenos dias compañeros pues eso

ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola

si usro run() me funciona pero queda una ventana de consola abierta

si uso winrun -> no funciona queda el segundo programa en memoria y no se muestra

si uso waitrun('ejecutble.exe') funciona pero se ve por unos momentos una venata de consola

si uso waitrun('ejecutble.exe',0) NO funciona se queda en memoria el programa y no se muestra

que podria usarse en estos casos para que no aparezca la ventana de consola

Gracias de antemano

un abrazo

Wilson

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Mon Sep 01, 2025 03:26 PM
Code: Select all Collapse
#include "FiveWin.ch"

#Define SW_NORMAL         1
#Define SW_MAXIMIZE       3
#Define SW_MINIMIZE       6
#Define SW_RESTORE        9

#Define SW_SHOWNA         8   // &H8
#Define SW_SHOW           5   // &H5
#Define SW_HIDE           0   // &H0

FUNCTION Main()

   WinExec( 'TUTOR04.Exe', SW_NORMAL )

RETURN NIL
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Mon Sep 01, 2025 04:21 PM
Otra forma:
Code: Select all Collapse
#include "FiveWin.ch"

#Define SW_NORMAL         1
#Define SW_MAXIMIZE       3
#Define SW_MINIMIZE       6
#Define SW_RESTORE        9

#Define SW_SHOWNA         8   // &H8
#Define SW_SHOW           5   // &H5
#Define SW_HIDE           0   // &H0

FUNCTION Main()

   LOCAL cComand

   // WinExec( 'TUTOR04.Exe', SW_NORMAL )

   cComand := "TUTOR04.Exe"

   MyRun( cComand )

RETURN NIL
***************************
Function MYRUN( cComando )

   ***************************
   Local oShell, RET, lOk:=.T.

   TRY
      #IFDEF __XHARBOUR__
         oShell := CreateObject( "WScript.Shell" )
      #ELSE
         oShell := Win_OleCreateObject( "WScript.Shell" )
      #ENDIF

   CATCH

      TRY
         #IFDEF __XHARBOUR__
            oShell := CreateObject( "WScript.Shell" )
         #ELSE
            oShell := Win_OleCreateObject( "WScript.Shell" )
         #ENDIF

      CATCH

         lOk:=.F.

        END
   END

   IF lOk

      TRY

          //.F. = Nao espera a aplicacao fechar, .T. espera.
          oShell:Run( "%comspec% /c " + cComando, 0, .T. ) 

      CATCH

          lOk:=.F.

      END

      oShell := NIL

   ENDIF

   //--   RET := oShell:Run( "%comspec% /c " + cComando, 0)  //, .T. )

RETURN lOk
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
wilsongamboa
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Tue Sep 02, 2025 01:42 PM

muchas gracias pero

WinRun nunca aparece el programa

myrun funciona pero aparece una ventana de consola aunque desaparece al aparecer el programa invocado con eso me quedo muchas gracias

Wilson

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Tue Sep 02, 2025 01:53 PM
Code: Select all Collapse
C:\XHBBCC77\lib\gtgui.Lib            +
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Tue Sep 02, 2025 02:06 PM
Code: Select all Collapse
#include "FiveWin.ch"

#Define SW_NORMAL         1
#Define SW_MAXIMIZE       3
#Define SW_MINIMIZE       6
#Define SW_RESTORE        9

#Define SW_SHOWNA         8   // &H8
#Define SW_SHOW           5   // &H5
#Define SW_HIDE           0   // &H0

FUNCTION Main()

   LOCAL cComand

   // WinExec( 'TUTOR04.Exe', SW_NORMAL )

   // cComand := "TUTOR04.Exe"

   // MyRun( cComand )

   MsgRun( "AGUARDE...                                ", ;
           "Por Favor, Espere Apertura. Puede Demorar.", ;
           { || WinExec( 'TUTOR04.Exe' ), 5 } )

RETURN NIL
***************************
Function MYRUN( cComando )

   ***************************
   Local oShell, RET, lOk:=.T.

   TRY
      #IFDEF __XHARBOUR__
         oShell := CreateObject( "WScript.Shell" )
      #ELSE
         oShell := Win_OleCreateObject( "WScript.Shell" )
      #ENDIF

   CATCH

      TRY
         #IFDEF __XHARBOUR__
            oShell := CreateObject( "WScript.Shell" )
         #ELSE
            oShell := Win_OleCreateObject( "WScript.Shell" )
         #ENDIF

      CATCH

         lOk:=.F.

        END
   END

   IF lOk

      TRY

          //.F. = Nao espera a aplicacao fechar, .T. espera.
          oShell:Run( "%comspec% /c " + cComando, 0, .T. ) 

      CATCH

          lOk:=.F.

      END

      oShell := NIL

   ENDIF

   //--   RET := oShell:Run( "%comspec% /c " + cComando, 0)  //, .T. )

RETURN lOk
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Wed Sep 03, 2025 12:49 AM
Wilson,
Esto funciona perfecto:
Code: Select all Collapse
ShellExecute( , "OPEN" , "ejecutable.exe", , , 1 )

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Wed Sep 03, 2025 08:17 AM
You can omit "OPEN":
ShellExecute( , , "ejecutable.exe", , , 1 )
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
wilsongamboa
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Wed Sep 03, 2025 12:15 PM

buenos dias con todos

como le paso parametros a ShellExecute ? precisamente eso necesito enviar uno o mas parametros

ya voy a probar a meter esa lib

saludos

Wilson

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Wed Sep 03, 2025 12:38 PM
ShellExecute( , , "ejecutable.exe", "parameter1 parameter2", , 1 )
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
wilsongamboa
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Wed Sep 03, 2025 05:41 PM

He realizado pruebas con todo y siempre me abre la ventana de consola y luego se cierra no le doy mas largas y me quedo con la opcion myrun que me funciona igual que otras que probé

gracias por su tiempo

Wilson

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Wed Sep 03, 2025 05:45 PM
Please try this and let me know if it opens a console window (it should not):
Code: Select all Collapse
ShellExecute( , , "calc.exe", , , 1 )
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Wed Sep 03, 2025 09:08 PM
Wilson,
ShellExecute( hWnd, cOperation, cFile, cParameters, cDirectory, nShowCmd )

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Thu Sep 04, 2025 02:16 AM

ShellExecute( , "open", cFilBat ,,,6);

elmoiquique
Posts: 336
Joined: Wed May 16, 2007 09:40 PM
Re: ejecutar un prog fwh desde otro fwh sin que aparezca ventana de consola
Posted: Fri Sep 05, 2025 06:51 PM

waitrun("EmisionApp ",0)

Fivewin-Xharbour 24.09, Iquique, Chile
Static archive · New replies & topics via GitHub Discussions