Controlar la ejecuci贸n de un programa
onpg2002
20 de Marzo del 2005
La consulta es la siguiente, quisiera saber si se puede controlar que no se ejecute varias veces en simultaneo el mismo programa en una misma m谩quina, tengo entendido que se puede hacer desde el archivo de recursos, pero no se bien como. 驴Algu铆en me puede ayudar?
mm
20 de Marzo del 2005
local lc,ll
declare integer FindWindow in win32api string cNULL, string cWinName
lc=_SCREEN.CAPTION
_SCREEN.CAPTION="_"+lc
if FindWindow(0, lc) # 0
estaactivo=.t.
else
estaactivo=.f.
endif
_SCREEN.CAPTION=lc
if estaactivo
messagebox("El programa ya est谩 abierto y no admite simultaneidad en el mismo equipo ... ",16, "ADVERTENCIA")
do salir
endif
declare integer FindWindow in win32api string cNULL, string cWinName
lc=_SCREEN.CAPTION
_SCREEN.CAPTION="_"+lc
if FindWindow(0, lc) # 0
estaactivo=.t.
else
estaactivo=.f.
endif
_SCREEN.CAPTION=lc
if estaactivo
messagebox("El programa ya est谩 abierto y no admite simultaneidad en el mismo equipo ... ",16, "ADVERTENCIA")
do salir
endif