run em modulo wvw aparece telinha

[tonyx]

estou comecando usar em modulo grafico wvw por possuir funcoes mais me atrem que o wvt
--- estou usando isto aqui colocar modulo grafico inicial
utilizando a funcao win_gwm abaixo

SO QUE DENTRO DO SISTEMINHA TENHO

RUN CD &DIR_EMP
RUN DIR
NESTAS ETAPAS APARECE RAPIDAMENTE UMA TELINHA PRETA EXECUTANDO O RUN
E NORMAL ISTO ?? COMO RESOLVER ??

:{


//---------------------------------------------
FUNCTION WIN_GWM()
// DOS = 24,80 => mfonte="Terminal"
// gtinfo(GTI_FONTSIZE, 24)
// NAO APARECE A BARRA DE TITULO
// ------- COM BARRA DE TITULO ------
// mfonte="Courier New" // letra fraca
mfonte="Lucida Console"

wvw_setcodepage(,255)
wvw_settitle(0,titulo)
wvw_setfont(mfonte,1,0)

do case // Identifica a resolucao do video
case gtinfo(GTI_DESKTOPWIDTH) > 1439
gtinfo(GTI_FONTWIDTH, 12) // 12 anterior // 13 // 12
gtinfo(GTI_FONTSIZE, 27) // 28 anterior // 29 // 27
//wvw_setfont(,mfonte,32,12) //29,12

case gtinfo(GTI_DESKTOPWIDTH) > 1023
gtinfo(GTI_FONTWIDTH, 12) // 12 anterior // 13 // 12
gtinfo(GTI_FONTSIZE, 27) // 28 anterior // 29 // 27
//wvw_setfont(,mfonte,32,12) //29,12

case gtinfo(GTI_DESKTOPWIDTH) > 799 // ESTE E DO MEU VISOR
gtinfo(GTI_FONTWIDTH, 10 ) // 10 anterior // 10
gtinfo(GTI_FONTSIZE, 22 ) // 20 anterior // 22
// wvw_setfont(,mfonte,22,10) //23,10

otherwise
gtinfo(GTI_FONTWIDTH, 8)
gtinfo(GTI_FONTSIZE, 17)
// wvw_setfont(,mfonte,18,8) // 18,8
endcase

//set(20,80)
//setmode(80,22)
//----------------------------------------
WVW_NOCLOSE() // desabilitando o X

RETURN(NIL)

[frazato]

Bom dia eu utilizo assim!
DRIV := "C:"
Arquivo := DRIV+"\Temp\"+ arg1 +".txt"
ImprArq := Arquivo
Grv_Arq_Visual("G",nColuna,ImprArq)
cComando := "REP23.exe"
oShell := CreateObject("WScript.Shell")
Ret := oShell:Run("%comspec% /C"+cComando,0,.T.)
oShell := Nil


Frazato

[tonyx]

FUNCIONOU NO XP E WIN98, VALEU

EU JA TINHA VISTO ESTA FUNCAO, MAS NUNCA USEI, AGORA TA LEGAL

--lembrando WINEXEC NAO EXECUTA como "RUN vol" ou "run dir"

//----------------------------------//
FUNCAO WRUN(ccomando)
oShell := CreateObject("WScript.Shell")
Ret := oShell:Run("%comspec% /C"+cComando,0,.T.)
oShell := Nil
return(nil)