Cerrar Programas o aplicaciones externas

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Cerrar Programas o aplicaciones externas
Posted: Tue Oct 15, 2013 07:24 PM

Holas a todos....

Necesito cerrar programas externos... como por ejemplo el WORD, a veces Excel dependiendo de algunos procesos que hago.

El problema es que no los cierra si no se exactamente el nombre del documento abierto...
Ej.
Si word esta recien iniciado y ejecuto CerrarVentana("Documento1 - Microsoft Word"), lo ejecuta sin problemas, pero si es otro documento o no se el nombre, no lo hace.
Me gustaria poder a lo menos cerrar Word y excel.

Code (fw): Select all Collapse

#define WM_CLOSE                        0x0010
Function CerrarVentana(cTitle)
Local hWnd
If(hWnd:=FindWindow(,cTitle))!=0
   PostMessage(hWnd,WM_CLOSE)
EndIf
Return Nil

Cualquier Ayuda sera bienvenida.

Desde Chile
Adolfo

PD: Esa rutina es de Lailton, y la uso igual sin cambios.

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Cerrar Programas o aplicaciones externas
Posted: Tue Oct 15, 2013 08:24 PM

Adolfo

Intenta poniendo "WINWORD.EXE"

o utiliza este proceso que funciona

Code (fw): Select all Collapse

CerrarProceso("WINWORD.EXE")
*..
FUNCTION CerrarProceso( cProceso )
Local oWMIob, oWMIserver, aProcess, objProcess
?cProceso
try
oWMIob := CreateObject( "wbemScripting.SwbemLocator" )
catch
RETURN nil
END

oWMIserver := oWMIob:ConnectServer()
aProcess :=oWMIserver:ExecQuery( "Select * from Win32_Process" )
For Each objProcess in aProcess
IF UPPER(objProcess:Name) = UPPER(cProceso)
objProcess:Terminate()
ENDIF
next

RETURN nil

Saludos,

Adhemar

Saludos,

Adhemar C.

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Cerrar Programas o aplicaciones externas
Posted: Tue Oct 15, 2013 09:34 PM

Gracias Adhemar

Pruebo y te comento...

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Cerrar Programas o aplicaciones externas
Posted: Tue Oct 15, 2013 09:45 PM

Funciono Perfecto Adhemar...

Muchisimas Gracias.

Desde Chile
Adolfo

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Cerrar Programas o aplicaciones externas
Posted: Tue Oct 15, 2013 10:00 PM

Que bueno

Saludos,

Adhemar

Saludos,

Adhemar C.

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Cerrar Programas o aplicaciones externas
Posted: Tue Oct 15, 2013 10:08 PM

Muy bien
Gracias

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

José Vicente Beltrán

Posts: 282

Joined: Mon Oct 10, 2005 08:55 AM

Re: Cerrar Programas o aplicaciones externas
Posted: Wed Oct 16, 2013 02:10 PM

acuellar muchas gracias por dar solución a un problema que llevaba meses arrastrando.
funciona perfectamente :shock:

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Cerrar Programas o aplicaciones externas
Posted: Wed Oct 16, 2013 02:19 PM

Somos varios los que te agradecemos este importante aporte. Gracias

Saludos

rterraz

Posts: 182

Joined: Wed Nov 08, 2006 11:44 PM

Re: Cerrar Programas o aplicaciones externas
Posted: Sat Aug 08, 2015 08:07 PM

Adhemar

muchas gracias por el proceso de cierre de word.
Me estaba volviendo loco tratando de que no se me acumularan Words abiertos en mi aplicacion que exporta mucho a dico programa desde Tpreview.
El hallazgo de tu proceso fue una bendicion!
un abrazo desde Argentina

postinelli

Posts: 150

Joined: Tue Jul 15, 2008 07:12 PM

Re: Cerrar Programas o aplicaciones externas
Posted: Mon Aug 10, 2015 11:19 AM

Genial

logré por fin cerrar el AcroRd32.exe luego de mandar a imprimir desde ShellExecute(0,"Print",cPdf,,0,1)

Gracias

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Cerrar Programas o aplicaciones externas
Posted: Mon Aug 10, 2015 03:34 PM

Saludos,

Adhemar

Saludos,

Adhemar C.

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: Cerrar Programas o aplicaciones externas
Posted: Wed Aug 12, 2015 05:36 PM

Hola a todos,
Al margen de la solución de Adhemar, yo en estos casos trato de ni diquiera pensar e ir a los más básico y crudo que existe dentro del Windows, es decir, la consola de comandos. Lo único importante es saber que comando se adapta a lo que necesito hacer.
Dejo una función muy básica que se podría usar en este caso.

Code (fw): Select all Collapse

Function KillExe(cExeKill)

WAITRUN( "CMD.EXE /C TASKKILL /F /IM "+cExeKill,.t.)

Return nil
//

Espero les sirva la idea.
Saludos,

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: Cerrar Programas o aplicaciones externas
Posted: Tue Jun 20, 2017 01:38 PM

Hola Amigo, estoy impriiendo un archivo PDF, con acrobat

WaitRun( 'C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /N /t "C:\ribon\bol-20.pdf" "EPSON TM-T81 Receipt" ', 0 )
y lo hace perfecto, lo que pasa que queda abierto.

hago esto para :
WAITRUN( "CMD.EXE /C TASKKILL /F /IM "+"AcroRd32.exe",.t.)
no lo hace, pero si me pongo directo en cmd lo hace,

y pruebbo esto:
CerrarProceso("Acrord32.exe")

tampoco
que estare haciendo mal..

saludos

FiveTech Support Forums

Continue the discussion