executar um exe e ficar aguardando el eterminar

[paiva_dbdc]

BOM dia

como executar um exe e ficar aguardando ele TERMINAR para poder dar continuidade ?


para executar um mexe uso o myrun + ele Não fica aguardando o retorno.

alguém sabe como fazer ?


JA eliminei o start do cComando := "start " + cComando + não resolveu

ob PAiva

xrun = [\dbdc\dosprint /PDF ] + xfile
MyRun(xrun)

function MYRUN( cComando )

local oShell, RET

cComando := "start " + cComando
oShell := CreateObject( "WScript.Shell" )
RET := oShell:Run( "%comspec% /c " + cComando , 0, .T. )
oShell := NIL

return iif( RET = 0, .T., .F. )

[Kapiaba]

Tente:

Código: Selecionar todos

RET := oShell:Run( "%comspec% /c " + cComando , 2, .T. )  // ou 3 para ver se fica esperando.

Abs

[JoséQuintas]

Depende do que estamos falando.
Se for Harbour 3.2, depois de certas correções há alguns anos, basta usar igual no Clipper:

Código: Selecionar todos

RUN ( "programa.exe" )

Em ambiente gráfico pode ser mais complicado, porque se tentar clicar na tela que aguarda a execução, vai parecer que o programa travou.
Nesse caso, talvez multithread seja mais interessante.

[Jairo Maia]

Olá Paiva,

Veja se esse exemplo ajuda:

Código: Selecionar todos

/*
  Compilar usando a lib -lxhb
*/
Function Main()

 nHandlerProcess := hb_OpenProcess( "SeuExecutavel.Exe" )
 nCodeReturn := HB_ProcessValue( nHandlerProcess, .T. )
 
 If nCodeReturn = 0
  Hb_Alert( "O processo foi encerrado com sucesso!" )
 Else
  Hb_Alert( "O processo foi encerrado, Mas houve erro!" )
 EndIf
 
Return

[rossine]

Olá,

No link abaixo tem um exemplo de uma rotina que montei, mult-uso:

https://pctoledo.org/forum/viewto ... lue#p89206

Veja se serve.

T+

[paiva_dbdc]

Boa noite.

Kapiaba, Não ficou aguardando com 2 e 3 e ate com .F. rs

Jairo, o prg NAo respondia tipo TRAVADO. Não linkei nenhuma lib adicional

José uso XHB e nele o RUN não fica aguardando a finalizacao

faltou só testar a função do rossine (rs)


ob a todos

Paiva