Rodar Script

[frazato]

Achei isso no forum do fivewin! e possivel fazer isso utilizando xharbour 99.70 ou algo similar a isso?


if HB_Compile( "", "Modulo001.prg", "-n", "-gh" ) == 0
HB_HRBRun( "Modulo001.hrb" )
endif


Frazato

[Itamar M. Lins Jr.]

Porque não usa o harbour para isso?
Tem todas as principais funções do xHarbour e essas que o xHarbour não possue (ainda)

Pode não ser o seu caso, mais precisamos tratar as nossas ferramentas com menos religiosidade.
Para mim tanto faz xHarbour ou Harbour.

Saudações,
Itamar M. Lins Jr.

[frazato]

Faço muito uso da Gtwvw e no momento e meio complicado sair desta lib.

Estas funções são do harbour, seria possivel eu gerar um executavel em harbour que rode este script( com as funcoes acima ) e executar este aplicativo atraves do xharbour que tenho hoje.

Frazato

[frazato]

Fiz da seguinte maneira, não ficou muito legal mais resolveu em parte o meu problema, a unica coisa é que o sistema e todo grafico usando a Gtwvw e quando executo este script ele fica janelado, mais blz.



//----------------------------------------------------------------
Function JAF_PRG(cSistema)
Local cComando := 'hbrun.exe'

If !File(cComando)
Alerta('Arquivo '+cComando+' Nao localizado!')
Return Nil
Endif

If !File(cSistema+'.PRG')
Alerta(cSistema+chr(10)+;
'Nao localizado na pasta do executavel')
Return nil
Endif
Centra(24,'Compilando '+cSistema)
oShell := CreateObject("WScript.Shell")
cComando:= 'hbrun.exe '+cSistema+'.PRG'
Ret := oShell:Run("%comspec% /C"+cComando,1)//,.T.)
oShell := Nil
Centra(24,'')
Return nil

[sygecom]

Tente como:

Código: Selecionar todos

__hrbRun( cARQ, cPar1, cPar2, cPar3, cPar4, cPar5, cPar6, cPar7, cPar8, cPar9 )