Esto es algo muy antiguo
Fijate si te sirve
Declare Integer CreateEvent In WIN32API;
Integer lpEventAttributes,;
Short bManualReset,;
Short BInitialState,;
String @lpName
Declare Integer GetLastError In WIN32API
Declare CloseHandle In WIN32API Integer hObject
nEh = CreateEvent(0,0,1, "TuEjecutable" +'.EVENT')
If GetLastError() = 183 Or nEh= 0
=CloseHandle(nEh)
MessageBox('Ya esta ejecutando’,64, 'Aviso ')
READ EVENTS()
On ShutDown
Release All Extended
Quit
EndIf
From: [email protected] [mailto:[email protected]] On Behalf Of Walter Comito
Sent: miércoles, 19 de agosto de 2015 13:40
To: GUFA List Member <[email protected]>
Subject: [GUFA] EJECUTABLE
Amigos como puedo hacer para que un usuario logueado en el sistema no abra el
exe mas de 1 o 2 veces?
Alguna idea
Gracias.
Walter Cómito
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
* <mailto:[email protected]> [email protected]
<mailto:[email protected]> [email protected]
' +54 351 494.4667
153.292.707
* <http://www.softram.com.ar/> www.softram.com.ar
Q Si no es necesario, no imprima este correo.
Todos somos responsables por el cuidado del medio ambiente.
NOTA DE CONFIDENCIALIDAD
Este mensaje (y sus anexos) es confidencial y puede contener información de
propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje
por error,
por favor comuníquelo inmediatamente a <mailto:[email protected]>
walter.comito@ <http://gmail.com/> gmail.com y tenga la amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a ninguna
persona.
Muchas Gracias.
_____
<https://www.avast.com/antivirus>
El software de antivirus Avast ha analizado este correo electrónico en busca de
virus.
www.avast.com <https://www.avast.com/antivirus>
