Página 1 de 1

Cerrar Procesos

Publicado: 28 Feb 2009, 01:54
por okunova
Buenas como seria el codigo para que las apliciones que abro cuando estas se cierren no queden procesos abiertos

Opt("TrayIconHide", 0)
Run("Aplicacion\1.exe" )
Run("Aplicacion\2.exe" )

Comos se haria si yo cierro los programas el script no quede abierto y si estos programas estan abiertos que me salte un mensaje de que esta abierto.

Gracias un saludo

Re: Cerrar Procesos

Publicado: 28 Feb 2009, 05:17
por XPyro
Un pequeño ejemplo:

Código: Seleccionar todo

If ProcessExists("1.exe") Then MsgBox(0, "Ejecutando", "el archivo esta corriendo")
ProcessWaitClose("1.exe")
MsgBox(0, "Terminado", "Proceso cerrado")
Así entendí el mensaje :smt017

Re: Cerrar Procesos

Publicado: 28 Feb 2009, 18:02
por okunova
L voy a probar, otra cosa a ver si alguien sabe como seria un script tipico para realizar un portable, es decir abrir la aplicacion portable y si esta abierta que salte un mensaje y al cerrar esta aplicacion se cierren todos los proccesos, tambien ocultar el icono de la barra de tareas cuando se ejecute el script.

Algo como los que realizan los portables de appportables

Gracias un saludo :smt040

Re: Cerrar Procesos

Publicado: 28 Feb 2009, 21:03
por XPyro
Yo tengo ya tiempo creando portables y realize un manual, ya hace un año y no esta muy actualizado pero seguro te servira :smt003

http://mundoxpyro.blogspot.com/2008/10/ ... e-con.html

Re: Cerrar Procesos

Publicado: 01 Mar 2009, 16:49
por okunova
Buenas no se si se puede hacer pero como seria el codido para que una vez se ejecuten estas tres aplicaciones, que a la hora de cerrar la aplicacion 1.exe se cierren autmaticamente las otras dos
Run("1.exe" )
Run("2.exe" )
Run("3.exe" )

Re: Cerrar Procesos

Publicado: 01 Mar 2009, 20:19
por Chefito
Claro que se puede hacer, de varias formas.
Una sería meter dentro del while una condición, la cual se cumpliese cuando el primer proceso no existiese....e inmediatamente cerrase los otros dos. Ya te lo dijo más o menos Xpyro.

Código: Seleccionar todo

while 1
sleep(10)
If ProcessExists("1.exe")=0 Then
ProcessClose ( "2.exe")
ProcessClose ( "3.exe")
msgbox(0,"","Los procesos han sido cerrados")
exit
endif
wend
Algo así.

Saludos.

Re: Cerrar Procesos

Publicado: 02 Mar 2009, 21:52
por okunova
No me funciona com me lo pones tu, pero bueno en el fondo quiero que cuando cierre las aplicaciones estas no se queden en memoria, por que a veces se quedan en memoria y no las puedo volver a ejecutar como puedo poner para que se cierren los procesos.
Mi codigo es este

Opt("TrayIconHide", 0)
Run("Aplicacion\Fuente\Aplicacion.exe" e)
Sleep (4000)
Run("Aplicacion\Fuente\Aplicacion2.exe" )
Exit

Gracias por todo