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