Winexec ShellExecute Run __Run ??

[Dudu_XBase]

To tentando chamar um programa externo mas naum vai...to usando xharbour + gtwvt....
Qdo chamo ele pelo run ele carrega um prompt do Dos junto...
Tentei usar o Winexec e o ShellExecute e naum vai tb...
Alguém conhece outro jeito ??

[Stanis Luksys]

Puxa!!!!

Entrei aqui no forum só pra fazer exatamente a mesma pergunta agora!!!!!!!

[Stanis Luksys]

Olá Dudu,

Depois de longas horas horas de pesquisa, encontrei a solução, e olha que nem abre a tela preta do prompt... hehehe

entra neste link ae que tem muuuita dica boa pra miniGUI...

http://dicasprog.codigolivre.org.br/hmg/0012.php

para rodar programa externo como a calculadora do Windows (no exemplo) basta usar:

EXECUTE FILE "calc.exe"

muito simples não??

[Stanis Luksys]

Aliás acho que este comando é do Harbour mesmo, apesar de não constar na documentção, e não da miniGUI...

[Dudu_XBase]

Vlw Stanis e tb achei outra solução.
Abaixo o código da função q estou utilizando agora para executar programas externos.

Código: Selecionar todos

 Function xhbrun(ccommand)
 LOCAL hIn, hOut, hErr
 LOCAL cData, hProc, nLen
 Local nRet
 hProc := HB_OpenProcess( cCommand , @hIn, @hOut, @hOut )
 nRet :=  HB_ProcessValue( hProc )

   FClose( hProc )
   FClose( hIn )
   FClose( hOut )
   FClose( hErr )
  return nRet