Page 1 of 1
Ejecucion de subprograma en MS-DOS
Posted: Wed Sep 20, 2006 6:01 pm
by Manuel Aranda
Estoy pasando de FW a FWH y encontrándome con algunos problemillas. Uno de ellos es que en FW ejecuto WinExec("miprogmsdos.exe") y va perfecto. Con FWH ni siquiera aparece la ventana ms-dos.
He probado con WaitRun y ShellExecute y el resultado es el mismo.
Alguna idea?
-------------------------
WXP
FWH 2.8
xHarbour build 0.99.61
Posted: Wed Sep 20, 2006 9:13 pm
by Antonio Linares
Manuel,
Prueba este ejemplo:
Code: Select all
function Main()
WinExec( "calc.exe" )
return nil
Posted: Wed Sep 20, 2006 10:40 pm
by karinha
Code: Select all
STATIC FUNCTION ARCHIVO()
LOCAL Nome_Arq, nRegistro
IF !FILE( "ARCHIVO.BAT" )
NOME_ARQ := FCREATE("ARCHIVO.BAT")
NREGISTRO := "@ECHO OFF" ;
+ CRLF + ;
"CLS" + ;
+ CRLF + CRLF + ;
"BALCAOW.EXE" + ;
+ CRLF + CRLF + ;
"CLS" + ;
+ CRLF + ;
"EXIT"
FWRITE( NOME_ARQ, NREGISTRO )
FCLOSE( NOME_ARQ )
ENDIF
WinExec( "ARCHIVO.BAT", 0 )
ENDIF
RETURN NIL
Posted: Fri Sep 22, 2006 3:48 pm
by Manuel Aranda
Hola Antonio,
WinExec( "calc.exe" ) funciona perfecto, pero no así el programa en MS-DOS. Con FW+Clipper funciona correctamente.
Un saludo,
Manuel
Posted: Sat Sep 23, 2006 6:21 am
by Antonio Linares
Manuel,
Posiblemente se deba a que el programa que llamas es de 16 bits.
Posted: Sun Sep 24, 2006 9:11 pm
by Manuel Aranda
Karinha y Antonio, por favor disculpen por hacerles perder su tiempo
Funciona correctamente incluso de 16 bit. Tenía un problema con la ruta del subprograma.
Saludos,
Manuel
Posted: Sun Sep 24, 2006 9:24 pm
by Antonio Linares
Manuel,
Lo importante es que está solucionado
