Comando Run no modo console

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

lfernandolopes
Usuário Nível 1
Usuário Nível 1
Mensagens: 9
Registrado em: 03 Dez 2006 09:06
Localização: São Bernardo do Campo-SP
Contato:

Comando Run no modo console

Mensagem por lfernandolopes »

Olá pessoal,

Toda vez que vou chamar um programa externo com o comando RUN meu sistema abre outra janela prá executar o comando, mesmo que não precise mostrar nada, como faço prá essa janela não aparecer, meu sistema é em xHarbour modo CONSOLE.

Obrigado

Fernando
Avatar do usuário
vagucs
Membro Master
Membro Master
Mensagens: 1480
Registrado em: 10 Jul 2004 10:45
Localização: Ipanema - MG
Contato:

Mensagem por vagucs »

mas vc está usando em modo console mesmo? com a GTWIN? pois se está usando a WVT ou WVW isto acontece mesmo porque estas libs nao sao para modo console.

Veja na WATH32.LIB tem uma rotina acho que é WINEXEC que executa um comando e vc pode passar um parametro para a janela nao aparecer, ele executa minimizado e nao atrapalha seu sistema, é na WATH32 ou na MINIGUI não tenho certeza.
Sem mais
Wagner Nunes
www.vagucs.com.br
Avatar do usuário
janio
Colaborador
Colaborador
Mensagens: 1846
Registrado em: 06 Jul 2004 07:43
Localização: UBAJARA - CE

Mensagem por janio »

Usa essa função, é ótima:

Código: Selecionar todos

function MYRUN( cComando )
**************

local oShell, RET

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

return iif( RET = 0, .T., .F. )
Só acho que no win98 não funciona, só no XP.

Janio
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Danielzão
Usuário Nível 1
Usuário Nível 1
Mensagens: 32
Registrado em: 27 Nov 2006 14:28

Mensagem por Danielzão »

Tem uma função que substitue o RUN, baseado em uma API do windows que peguei aqui no forum mesmo e funciona que é uma beleza.

Procure na busca aqui do forum por: shellexecuteex

Espero ter ajudado.
Avatar do usuário
deividdjs
Usuário Nível 3
Usuário Nível 3
Mensagens: 377
Registrado em: 19 Set 2006 09:39
Localização: Foz do Iguaçu / Pr

Mensagem por deividdjs »

essa função que o amigo Janio mencionou é muito boa .. eu uso ela tbm ..
Windows 11 + Harbour 3.2 + MINGW64 gcc 14.1.0 + Visual Lib + GTWVG + LETODBF WINDOWNS/LINUX
Responder