Power Builder - Script para detener un ejecutable desde PB

 
Vista:

Script para detener un ejecutable desde PB

Publicado por Oscar (1178 intervenciones) el 03/05/2003 03:06:26
Hola a todos:
Según el post que me antecedió, veo que algunas preguntas que quedaron pendientes, se sigue investigando para el bien de todos. A mi me toca, comentar que, hace poquito uno de los foristas, quería ejecutar una aplicación flash en una ventana de PB. El motivo principal era, que al cerrar su aplicación de PB, quedaba abierta la aplicación del programa flash y resultaba incómodo hacerlo manualmente.
Si bien no sé cómo se puede ejecutar un exe en una ventana de PB; sin embargo, existe un script para cerrar cualquier aplicación externa a PB. Sólo basándose en el titulo de la ventana.
Para los que deseen probar, acá va:

En la pestaña de la ventana: Declare instance variables, y concretamente en Global external Functions, se debe pegar el siguiente script:
------------------------------------------
FUNCTION ULong FindWindowA(ULong classname, String windowname) LIBRARY "user32.dll"
FUNCTION boolean PostMessageA(ulong hwndle,UINT wmsg,ulong wParam,ulong lParam) Library "User32.dll"
-------------------------------------------
(continúa...)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Script para detener un ejecutable desde PB (2)

Publicado por Oscar (1178 intervenciones) el 03/05/2003 03:08:31
(continuación)
Luego pegar este script, por ejemplo en un botón:
------------------------------------------------
Ulong lul_handle, lul_class
String ls_name

// El valor hexadecimal de wm_quit es 0x0012. Convertido a valor decimal es 18.
UInt lui_quit = 18

// Pone la Clase a NULL. Esto no es obligatorio, puedes pasarle 0 también a la función FindWindowA().
SetNull(lul_class)

// Este es el código de la ventana. Por ejemplo la calculadora de Windows
ls_name = "Calculadora"

// Usa la llamada API para obtener el puntero de la ventana si la aplicación está en ejecución.
lul_handle = FindWindowA(lul_class, ls_name)

IF lul_handle > 0 THEN // Si se encuentra el puntero de la ventana se muestra el mensaje wm_quit
PostMessageA(lul_handle, lui_quit, 0, 0);
return
Else
MessageBox("Aviso", "La aplicación no está en ejecución. !")
END IF
------------------------
Quizá sirva a alguien. El autor de este truco es: Sameer N Phatak.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Script para detener un ejecutable desde PB

Publicado por LIZBETH (1 intervención) el 02/05/2005 17:15:17
Hola!
Soy Lizbeth de Méx. DF. Quiero cerrar todas las ventanas cuando cierro la ventana principal.
Sabes cómo hacerlo? o tienes una liga que me pudieras compartir?
gracias y saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar