Ejecucion de subprograma en MS-DOS

Ejecucion de subprograma en MS-DOS

Postby Manuel Aranda » Wed Sep 20, 2006 6:01 pm

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
User avatar
Manuel Aranda
 
Posts: 604
Joined: Wed Oct 19, 2005 8:20 pm
Location: España

Postby Antonio Linares » Wed Sep 20, 2006 9:13 pm

Manuel,

Prueba este ejemplo:
Code: Select all  Expand view  RUN
function Main()

   WinExec( "calc.exe" )

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby karinha » Wed Sep 20, 2006 10:40 pm

Code: Select all  Expand view  RUN
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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7855
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Manuel Aranda » Fri Sep 22, 2006 3:48 pm

Hola Antonio,
WinExec( "calc.exe" ) funciona perfecto, pero no así el programa en MS-DOS. Con FW+Clipper funciona correctamente.

Un saludo,
Manuel
User avatar
Manuel Aranda
 
Posts: 604
Joined: Wed Oct 19, 2005 8:20 pm
Location: España

Postby Antonio Linares » Sat Sep 23, 2006 6:21 am

Manuel,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Manuel Aranda » Sun Sep 24, 2006 9:11 pm

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
User avatar
Manuel Aranda
 
Posts: 604
Joined: Wed Oct 19, 2005 8:20 pm
Location: España

Postby Antonio Linares » Sun Sep 24, 2006 9:24 pm

Manuel,

Lo importante es que está solucionado :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Willi Quintana and 76 guests