Ejecucion de subprograma en MS-DOS

[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

[Antonio Linares]

Manuel,

Prueba este ejemplo:

Code: Select all

function Main()

   WinExec( "calc.exe" )

return nil

[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

[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

[Antonio Linares]

Manuel,

Posiblemente se deba a que el programa que llamas es de 16 bits.

[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

[Antonio Linares]

Manuel,

Lo importante es que está solucionado