Ejecución solo una vez de un exe

[fdiazp]

Hola esto es lo que yo uso que dependiendo de una configuración de mi sistema permita o no la ejecución varias veces del programa.

1. en el global setup del programa "inside de global map" colocan:

INCLUDE('CWUTIL.INC'),ONCE !Este archivo está como adjunto a este mensaje

2. En el "program setup", colocan:

IF FnValorVariable('MULTISESION') <> 'SI' !Condición se si se va o no a controlar que se ejecute múltiples veces
IF NOT BeginUnique('ACE.EXE') !Nombre del ejecutable
BEEP(BEEP:SystemExclamation)
YIELD()
CASE MESSAGE('El programa ya se está ejecutando..','Consulta Externa',ICON:Asterisk,BUTTON:OK,BUTTON:OK,0)
OF BUTTON:OK
HALT()
END
END
END


Espero que lo disfruten!!!
Saludos.

Fredy Diaz Pernett

[raai]

Orale muchas gracias.