No ejecutar más de una vez el programa
avazq...@gmail.com
Buenas
Alguien me puede ayudar?
No quiero que se pueda ejecutar dos veces al mismo tiempo la aplicación.
Estoy dando vueltas, pero no lo consigo.
Alguna idea/ayuda?
gracias
Saludos.
Antonio Vázquez
Sergio Castellari
Hola Antonio,
Yo utilizo esta sentencia al inicio del programa:
Set Multiple Off Warning
Con esto no puedes ejecutar dos veces el mismo EXE.
Saludos,
Sergio Castellari
--
Has recibido este mensaje porque estás suscrito al grupo "ADO Harbour" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a ado-harbour...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/ado-harbour/004701dc8de7%24a8f96270%24faec2750%24%40gmail.com.
Antonio Vázquez
Sent: Sunday, January 25, 2026 2:30:41 PM
To: ado-h...@googlegroups.com <ado-h...@googlegroups.com>; avazq...@gmail.com <avazq...@gmail.com>; oo...@googlegroups.com <oo...@googlegroups.com>
Subject: Re: [ADO Harbour] No ejecutar más de una vez el programa
Sergio Castellari
acabo de probar "comentando" ESA linea, y ahi SI me permite multiples ejecuciones...
Aclaro mi entorno:
ooHG + QPM (Todo establecido como defecto)....en el caso de QPM
lo tengo configurado asi para compilar
Ricardo Sassy
Hola Antonio.
Probá “set multiple off” (sin el warning) justo al comienzo de tu función MAIN().
Saludos...
Ricardo Sassy
--
avazq...@gmail.com
Gracias a todos por responder.
Set multiple no me ha funcionado en ninguna de las variantes. No sé si será por mi versión u otra cosa.
La opción de Paola sí funciona.
Muchas gracias a todos. Creía que el grupo estaba muerto…
Saludos, abrazo, besos o lo que corresponda…
Para ver este debate, visita https://groups.google.com/d/msgid/ado-harbour/0a9001dc8e5b%243da84bc0%24b8f8e340%24%40gmail.com.
David Field
If IsExeRunning( cProgName+cProgExt )
If (hWnd := FindWindow(cProgName)) <> 0 // encontrar hWnd
If ISWINDOWMINIMIZED( hWnd ) // Si está minimizado
Restore( hWnd ) // Restaurar
ELSE
SetForeGroundWindow( hWnd ) // Traer al frente
Endif
ExitProcess( 1 )
Else
hb_Run("taskkill /IM "+cProgName+".exe") // matar executable y continuar
Endif
Endif
Antonio Vázquez
Sent: Monday, January 26, 2026 9:20:12 PM
To: ADO Harbour <ado-h...@googlegroups.com>
Subject: Re: [ADO Harbour] No ejecutar más de una vez el programa