como puedo corre un programa externo

[PILO]

Quiero correr el programa winrar, con línea de comandos desde el xailer
por ejemplo en xbase++ es así:
NUEVO:='/C c:srmlibrowinrar a -vd -R0 -x*basedato*.db* '+ cDocument + '
*.db*'
RUNSHELL(NUEVO)
en xailer como seria:

[ignacio]

Pilo,
WinExec( NUEVO )
Saludos,
Nota: Es posible que tengas que utilizar unas comillas adicionales para el
paso de parametros a Winrar.
"pilo" <srmpilo@hotmail.com> escribió en el mensaje
news:42b54478$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Quiero correr el programa winrar, con línea de comandos desde el xailer
> por ejemplo en xbase++ es así:
> NUEVO:='/C c:srmlibrowinrar a -vd -R0 -x*basedato*.db* '+ cDocument +
> '
> *.db*'
> RUNSHELL(NUEVO)
>
>
> en xailer como seria:
>
>
>
>

[PILO]

METHOD Button1Click( oSender ) CLASS TFCLAVES1
WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
RETURN Nil
cuando ejecuto lo anterior no vuelve al programa donde lo llame y quiero que
siga funcionando el programas
es decir que cuandor termina el winrar se sale del programa y no quiero que
se salga del programa que lo llame.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42b6719e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Pilo,
>
> WinExec( NUEVO )
>
> Saludos,
>
> Nota: Es posible que tengas que utilizar unas comillas adicionales para el
> paso de parametros a Winrar.
>
>
> "pilo" <srmpilo@hotmail.com> escribió en el mensaje
> news:42b54478$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > Quiero correr el programa winrar, con línea de comandos desde el xailer
> > por ejemplo en xbase++ es así:
> > NUEVO:='/C c:srmlibrowinrar a -vd -R0 -x*basedato*.db* '+ cDocument
+
> > '
> > *.db*'
> > RUNSHELL(NUEVO)
> >
> >
> > en xailer como seria:
> >
> >
> >
> >
>
>

[ignacio]

Pilo,
WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
::SetFocus()
Saludos,
"pilo" <srmpilo@hotmail.com> escribió en el mensaje
news:42c263e4$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> METHOD Button1Click( oSender ) CLASS TFCLAVES1
> WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
> RETURN Nil
> cuando ejecuto lo anterior no vuelve al programa donde lo llame y quiero
> que
> siga funcionando el programas
> es decir que cuandor termina el winrar se sale del programa y no quiero
> que
> se salga del programa que lo llame.
>
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:42b6719e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Pilo,
>>
>> WinExec( NUEVO )
>>
>> Saludos,
>>
>> Nota: Es posible que tengas que utilizar unas comillas adicionales para
>> el
>> paso de parametros a Winrar.
>>
>>
>> "pilo" <srmpilo@hotmail.com> escribió en el mensaje
>> news:42b54478$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> > Quiero correr el programa winrar, con línea de comandos desde el xailer
>> > por ejemplo en xbase++ es así:
>> > NUEVO:='/C c:srmlibrowinrar a -vd -R0 -x*basedato*.db* '+ cDocument
> +
>> > '
>> > *.db*'
>> > RUNSHELL(NUEVO)
>> >
>> >
>> > en xailer como seria:
>> >
>> >
>> >
>> >
>>
>>
>
>

[PILO]

WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
::SetFocus()
Lo he puesto asi, y se sale del programa.
en xbase++ se utilica la barra + c para que se quede en primer plano y
recoga el foco anterior
que es así "/C c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe"
Tambien me gustaira que cuando winexec este funcionando se quede en primer
plano y recoger el foco de la ventana que lo llama
Muchas gracias Ignacio
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42c26965$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Pilo,
>
> WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
> ::SetFocus()
>
> Saludos,
>
> "pilo" <srmpilo@hotmail.com> escribió en el mensaje
> news:42c263e4$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > METHOD Button1Click( oSender ) CLASS TFCLAVES1
> > WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
> > RETURN Nil
> > cuando ejecuto lo anterior no vuelve al programa donde lo llame y quiero
> > que
> > siga funcionando el programas
> > es decir que cuandor termina el winrar se sale del programa y no quiero
> > que
> > se salga del programa que lo llame.
> >
> >
> > "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
mensaje
> > news:42b6719e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> >> Pilo,
> >>
> >> WinExec( NUEVO )
> >>
> >> Saludos,
> >>
> >> Nota: Es posible que tengas que utilizar unas comillas adicionales para
> >> el
> >> paso de parametros a Winrar.
> >>
> >>
> >> "pilo" <srmpilo@hotmail.com> escribió en el mensaje
> >> news:42b54478$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> >> > Quiero correr el programa winrar, con línea de comandos desde el
xailer
> >> > por ejemplo en xbase++ es así:
> >> > NUEVO:='/C c:srmlibrowinrar a -vd -R0 -x*basedato*.db* '+
cDocument
> > +
> >> > '
> >> > *.db*'
> >> > RUNSHELL(NUEVO)
> >> >
> >> >
> >> > en xailer como seria:
> >> >
> >> >
> >> >
> >> >
> >>
> >>
> >
> >
>
>

[ignacio]

Paco,
Soy incapaz de comprender tus problemas. Estoy seguro que puedes enviarnos
un ejemplo muy sencillito de lo que quieres hacer e indicar claramente donde
falla, como falla, y como quieres que se comporte. Espero que entonces pueda
serte más útil.
Un saludo,
"pilo" <srmpilo@hotmail.com> escribió en el mensaje
news:42c3a719$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
> ::SetFocus()
> Lo he puesto asi, y se sale del programa.
> en xbase++ se utilica la barra + c para que se quede en primer plano y
> recoga el foco anterior
> que es así "/C c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe"
>
> Tambien me gustaira que cuando winexec este funcionando se quede en primer
> plano y recoger el foco de la ventana que lo llama
>
>
> Muchas gracias Ignacio
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:42c26965$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Pilo,
>>
>> WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
>> ::SetFocus()
>>
>> Saludos,
>>
>> "pilo" <srmpilo@hotmail.com> escribió en el mensaje
>> news:42c263e4$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> > METHOD Button1Click( oSender ) CLASS TFCLAVES1
>> > WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
>> > RETURN Nil
>> > cuando ejecuto lo anterior no vuelve al programa donde lo llame y
>> > quiero
>> > que
>> > siga funcionando el programas
>> > es decir que cuandor termina el winrar se sale del programa y no
>> > quiero
>> > que
>> > se salga del programa que lo llame.
>> >
>> >
>> > "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
> mensaje
>> > news:42b6719e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> >> Pilo,
>> >>
>> >> WinExec( NUEVO )
>> >>
>> >> Saludos,
>> >>
>> >> Nota: Es posible que tengas que utilizar unas comillas adicionales
>> >> para
>> >> el
>> >> paso de parametros a Winrar.
>> >>
>> >>
>> >> "pilo" <srmpilo@hotmail.com> escribió en el mensaje
>> >> news:42b54478$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> >> > Quiero correr el programa winrar, con línea de comandos desde el
> xailer
>> >> > por ejemplo en xbase++ es así:
>> >> > NUEVO:='/C c:srmlibrowinrar a -vd -R0 -x*basedato*.db* '+
> cDocument
>> > +
>> >> > '
>> >> > *.db*'
>> >> > RUNSHELL(NUEVO)
>> >> >
>> >> >
>> >> > en xailer como seria:
>> >> >
>> >> >
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>
>

[PILO]

/*
* Proyecto: CLAVES
* Fichero: CLAVES1.prg
* Descripción:
* Autor:
* Fecha: 12/06/2005
*/
#include "Xailer.ch"
CLASS TFCLAVES1 FROM TForm
COMPONENT oImage1
COMPONENT oToolBar1
COMPONENT oEdit1
COMPONENT oEdit2
COMPONENT oButton1
METHOD CreateForm()
METHOD Edit1Create( oSender )
METHOD Edit2Create( oSender )
METHOD Button1Click( oSender )
METHOD FormInitialize( oSender )
ENDCLASS
#include "CLAVES1.xfm"
//---------------------------------------------------------- ----------------
----
METHOD FormInitialize( oSender ) CLASS TFCLAVES1
local oMenu, oSub, oserial, clave2, clave3
oserial:=hb_numtohex( volserial("c:"))
clave2 :=HB_Crypt( oserial, "SRMLIBRO" )
clave3 :=HB_Decrypt( clave2, "SRMLIBRO" )
MENU oMenu
MENUITEM "&Archivos"
MENU
MENUITEM "&Distribuidores" ACTION TFdistribuidor1():New(
Self ):ShowModal()
MENUITEM "&Usuarios" ACTION TFUSUARIOS1():New(
Self ):ShowModal()
MENUITEM "&Series Claves"
SEPARATOR
MENUITEM "&Salir" ACTION ::Close()
ENDMENU
MENUITEM "&Claves"
MENU
MENUITEM "&Claves"
MENUITEM "&Alta clave"
MENUITEM "&Modifica Clave"
MENUITEM "&Baja clave"
ENDMENU
MENUITEM "Windows"
MENU
MENUITEM "&Mosaic"
MENUITEM "&Cascade"
MENUITEM "&Next Window" + TAB + "Ctrl+F6"
SEPARATOR
MENUITEM "Close All"
MENUITEM clave2
MENUITEM clave3
MENUITEM oserial
ENDMENU
ENDMENU
::oMenu := oMenu
RETURN Nil
//---------------------------------------------------------- ----------------
----
METHOD Edit1Create( oSender ) CLASS TFCLAVES1
RETURN Nil
//---------------------------------------------------------- ----------------
----
METHOD Edit2Create( oSender ) CLASS TFCLAVES1
RETURN Nil
//---------------------------------------------------------- ----------------
----
METHOD Button1Click( oSender ) CLASS TFCLAVES1
// RUN "c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe"
// __RUN("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
::SetFocus()
RETURN Nil
//---------------------------------------------------------- ----------------
----
cuando termina de ejecutarse winexec()
se cierra el programa claves que tienes a continuacion
y lo que quiero es que vuelva a el formulario que llamo el Boton.

[PILO]

pantalla de frm de pregunta anterior


Attached files

[ignacio]

Pilo,
Me tienes que mandar el proyecto completo con la opción de exportar que
incluye el propio IDE.
No obstante si tu problema ES QUE SE CIERRA EL PROPIO FORMULARIO que
contiene el botón, supongo que será porque has puesto la propiedad
nModalResult del botón a algo distinto de mrNONE.
Saludos,
"pilo" <srmpilo@hotmail.com> escribió en el mensaje
news:42c3dc9a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> /*
> * Proyecto: CLAVES
> * Fichero: CLAVES1.prg
> * Descripción:
> * Autor:
> * Fecha: 12/06/2005
> */
>
> #include "Xailer.ch"
>
> CLASS TFCLAVES1 FROM TForm
>
> COMPONENT oImage1
> COMPONENT oToolBar1
> COMPONENT oEdit1
> COMPONENT oEdit2
> COMPONENT oButton1
>
> METHOD CreateForm()
> METHOD Edit1Create( oSender )
> METHOD Edit2Create( oSender )
> METHOD Button1Click( oSender )
> METHOD FormInitialize( oSender )
> ENDCLASS
>
> #include "CLAVES1.xfm"
>
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD FormInitialize( oSender ) CLASS TFCLAVES1
> local oMenu, oSub, oserial, clave2, clave3
> oserial:=hb_numtohex( volserial("c:"))
> clave2 :=HB_Crypt( oserial, "SRMLIBRO" )
> clave3 :=HB_Decrypt( clave2, "SRMLIBRO" )
>
> MENU oMenu
> MENUITEM "&Archivos"
> MENU
> MENUITEM "&Distribuidores" ACTION TFdistribuidor1():New(
> Self ):ShowModal()
> MENUITEM "&Usuarios" ACTION TFUSUARIOS1():New(
> Self ):ShowModal()
> MENUITEM "&Series Claves"
> SEPARATOR
> MENUITEM "&Salir" ACTION ::Close()
> ENDMENU
> MENUITEM "&Claves"
> MENU
> MENUITEM "&Claves"
> MENUITEM "&Alta clave"
> MENUITEM "&Modifica Clave"
> MENUITEM "&Baja clave"
> ENDMENU
> MENUITEM "Windows"
> MENU
> MENUITEM "&Mosaic"
> MENUITEM "&Cascade"
> MENUITEM "&Next Window" + TAB + "Ctrl+F6"
> SEPARATOR
> MENUITEM "Close All"
> MENUITEM clave2
> MENUITEM clave3
> MENUITEM oserial
> ENDMENU
> ENDMENU
>
> ::oMenu := oMenu
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD Edit1Create( oSender ) CLASS TFCLAVES1
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD Edit2Create( oSender ) CLASS TFCLAVES1
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD Button1Click( oSender ) CLASS TFCLAVES1
> // RUN "c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe"
> // __RUN("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
> WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
> ::SetFocus()
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
> ----
> cuando termina de ejecutarse winexec()
> se cierra el programa claves que tienes a continuacion
> y lo que quiero es que vuelva a el formulario que llamo el Boton.
>
>
>

[jfgimenez]

Pilo,
hemos añadido unas funciones que creo que te pueden servir:
------------------------------------------------------------ -------------
Execute( <cCommandLine>, [<cInitialDir>], [<lWaitUntilTerminate>] ) ->
<nProcess>
Ejecuta un comando, programa o cualquier otra cosa tal cual se escribe en la
línea de comandos del SO.
- <cCommandLine> es la línea de comandos que quieres ejecutar.
- <cInitialDir> es el directorio que estará activo en el momento de
ejecutarlo.
- <lWaitUntilTerminate> indica que esta función no retorne hasta que el
proceso haya terminado completamente. Pero cuidado, esto provoca que el
programa se quede completamente "congelado", y ni siquiera se procesa el
pintado de los controles (si pasas otra ventana por encima se ve que no se
repinta).
- <nProcess> es el handle del proceso que se está ejecutando.
------------------------------------------------------------ -------------
IsRunning( <nProcess> ) -> <lIsRunning>
Comprueba si un proceso está todavía en ejecución.
- <nProcess> es el handle del proceso que se quiere comprobar
- <lIsRunning> indica si el proceso está todavía ejecutándose (.T.) o si ya
ha terminado (.F.)
------------------------------------------------------------ -------------
KillProcess( <nProcess> ) -> lSuccess
Detiene un proceso. No obstante, conviene no utilizar esta función, ya que
el proceso que se quiere "matar" podría dejar DLLs abiertas.
- <nProcess> es el handle del proceso que se quiere detener.
------------------------------------------------------------ -------------
Para evitar que el programa se quede congelado mientras ejecutas otro
proceso, te aconsejo que llames a Execute() sin pasar el tercer parámetro o
pasándolo a .F.. Luego, el valor que te devuelve lo puedes usar para
comprobar periodicamente si el proceso sigue vivo, con IsRunning(). Para eso
puedes usar un timer o cualquier otro mecanismo que se te ocurra.
En el siguiente mensaje llevas el fichero util.obj; añádelo a tu proyecto
como si de
cualquier otro fichero se tratara. Cuando publiquemos una nueva versión
acuérdate de quitarlo.
--
Un saludo,
José F. Giménez

[jfgimenez]

Attached files util.zip (3.2 KB)Â