Enrico, I would do it this way, of course there are other easier ways. But it's beyond my limited knowledge at the moment. hahahaha.
Enrico, yo lo haría así, claro que hay otras formas más sencillas. Pero por el momento está más allá de mis conocimientos limitados. jajajaja.
// C:\FWH\SAMPLES\FUNCMAIN.PRG
#include "Fivewin.ch"
#ifdef __XHARBOUR__
INIT PROCEDURE Principal
MYRUN( Main() )
CLEAR MEMORY
__QUIT()
RETURN
#endif
FUNCTION TEST()
? "TEST() 2"
RETURN NIL
// #include "Fivewin.ch"
FUNCTION MAIN()
? "MAIN() 1"
TEST()
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
// FIN / END
Regards, saludos.
