La Web del Programador: Comunidad de Programadores
 
    Pregunta:  65058 - EJECUTAR UNA SOLA VEZ UNA APLICACION POWER BUILDER
Autor:  ROBERTO PAREDES
Hola, espero que puedan responder a mi pregunta.
Como puedo controlar que una aplicación desarrollada en Power Builder se ejecute por única vez en un computador con S.O. windows. Es decir que pueda ser ejecutado una sola vez.
Les agradesco por anticipado. Y envienme sus dudas talves pueda yo tambien ayudarles.

  Respuesta:  Adolfo Chairez
//Insertas esta funcion en la seccion Declare - Global external functions
PRIVATE FUNCTION Long FindWindow (String lpClassName, String lpWindowName) Library "user32" Alias For "FindWindowA;Ansi"

//y luego este es código para ver si tu aplicació ya esta corriendo
String ls_NullString, ls_titulo
//la variable ls_titulo contiene el titulo de la window, es decir la property Title de la Window principal o la que siempre se esta presente
SetNull (ls_NullString)
ll_hWnd = FindWindow(ls_nullString, ls_titulo)
if ll_hWnd <> 0 then
Messagebox("StartUP","La aplicación "+ ls_titulo +" ya esta ejecutandose",StopSign!)
Halt Close
end if

Visita mi blog:

http://powerbuilderesp.blogspot.com