FoxPro/Visual FoxPro - aplicacion no se ajecute mas de una vez

 
Vista:

aplicacion no se ajecute mas de una vez

Publicado por marcelo (14 intervenciones) el 30/08/2003 00:50:18
Tengo una aplicación realizada en VFP, y necesito que la aplicacion no se ejecute mas de una vez, y que salga un mensaje "La aplicación ya esta siendo ejecutada", no se como hacerlo.

Atte
Marcelo
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

RE:aplicacion no se ajecute mas de una vez

Publicado por Foxperto (894 intervenciones) el 30/08/2003 01:00:54
Hola Marcelo:

Casualidad, que en la primera entrega de mi boletin electronico, en la seccion de preguntas esta una rutina que soluciona tu problema.

Puedes descargarlo desde:

http://www.geocities.com/foxperto01/boletin0101

La segunda entrega de ese boletin se hara el Domingo 31 de agosto de 2003.

Prueba y me cuentas.
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

RE:aplicacion no se ajecute mas de una vez

Publicado por Cecilia Colalongo (218 intervenciones) el 30/08/2003 13:24:13
Lo puedes hacer con esto:

DECLARE Long FindWindowEx IN User32 Long hWnd1, Long hWnd2, String lpsz1, String lpsz2

hhWnd=0
hwnd=FindWindowEx(0,0,"MiEjecutable6c000000","")

DO WHILE hwnd<>0
hwnd=FindWindowEx(0,hwnd,"MiEjecutable6c000000","")
hhWnd=hhWnd+1
ENDDO
IF (hhWnd>2)
MSGBOX("Sólo puede ejecutarse una sesión por sistema."+CHR(13)+CHR(13)+"Salga de otras sesiones que tenga abiertas y ejecute nuevamente.",0+16,"¡Atención!")
QUIT
ENDIF
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