Hola amigos,
estoy necesitando utilizar en un programa solo Harbour, la función ShellExecute o algo que pueda lanzar una aplicación externa
y no sé cual es la función de Harbour que puede realizar esta operación.
Hago hincapié en solo Harbour, no puedo utilizar en este caso el FW.
Si alguien me puede tirar una mano se lo agradecerÃa!!!
Desde ya, muchas gracias!
Roberto
Board index FiveWin para Harbour/xHarbour OT: ShellExecute equivalente en Harbour
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 lOkJoão Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Gracias Joao!
Una consultita más, y si ese programa externo, va con parámetros? Mando todo junto en el mismo cComando?
Roberto
Ejemplo, en modo consola:
// RUN C:\INST_NFE\GERAPNFE &WNF_I_F
// usando MYRUN()
cMyRun := ( "C:\INST_NFE\GERAPNFE.EXE &WNF_I_F" )
MYRUN( cMyRun )João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Joao:
Me da errores al compilar:
d:\oficina\fuentes\CABEZA.PRG(2142) Error E0020 Incomplete statement or unbalaced delimiters
d:\oficina\fuentes\CABEZA.PRG(2144) Error E0020 Incomplete statement or unbalaced delimiters
d:\oficina\fuentes\CABEZA.PRG(2148) Error E0010 ENDIF does not match IF
Puede que me esté faltando algún include?
Gracias!
Faltaba hbcompat.ch.
Listo!
Muchas gracias!!!!