Inicio > Tecnología e Internet > oaguiar > Evitar que un programa se ejecute varias veces

Evitar que un programa se ejecute varias veces

Experto:
Usuario: Anónimo Fecha: 10/04/2008
Valoración: (3,00 sobre 5) Categoría: Tecnología e Internet
27/02/2008
Usuario
Hola a todos, tengo un ejecutable .exe de visual foxpro version 8.0, lo que sucede es que los usuarios descubrieron que al darle click en el icono del ejecutable pueden tener el programa abierto mas de una vez, lo que ocasiona que se alcance el limite de usuarios, y queden usuarios sin poder entrar a la aplicacion.
Me gustaria que ee ayudaran a encontrar alguna forma en windows, o en foxpro, o en un batch, que limite al usuario a una sola sesion .
agradeceria mucho de sus respuestas.
27/02/2008
lauval28, experto respondiendo en Tecnología e Internet
Experto



WndDoc = FindWindow("TipoVentana", "TITULODESISTEMA")
*"TipoVentana" varia segun la version de Foxpro, lo puedes averiguar con la herramienta SPY de Visual Studio
-Si consigues la declaracion de PostMessage puedes mandar a cerrar la sesion que se encuentre abierta previamente, del programa:
hWndDoc = FindWindow("TipoVentana", "TITULODESISTEMA")
Do WHILE hWndDoc 0
    X = PostMessage(hWndDoc, WM_CLOSE, 0, 0)  
    hWndDoc = FindWindow("TipoVentana", "MedOft")
Enddo

Atte.,
O.Aguiar
10/04/2008
Usuario
Bien. Una respuesta aceptable.
Enlaces patrocinados