Mutex

Librerías finalizadas programadas por usuarios entusiastas

Mutex

Notapor PowerDeath » Mar Jul 22, 2014 3:31 pm

Esta librería permite utilizar instancias.

Código: Seleccionar todo
Importar "Declare.prp"
Importar "ApiErrores.prp" ' Se obtiene en: http://www.pauscal.com.ar/foro/viewtopic.php?f=19&t=295
Importar "Rutas.prp" ' Se obtiene en: http://www.pauscal.com.ar/foro/viewtopic.php?f=19&t=294
Importar "Procesos.prp" ' Se obtiene en: http://www.pauscal.com.ar/foro/viewtopic.php?f=19&t=305
Privado:
Var Puntero:Entero
Proc CreateMutex(lpMutexAttributes:Entero,bInitialOwner:Booleano,Referencia lpName:Cadena):Entero, "Kernel32.dll" "CreateMutexA"
Proc ReleaseMutex(hMutex:Entero):Booleano, "Kernel32.dll"
Público:

Clase PscMutex
ClaseVar Nombre:Cadena ' Nombre de la instancia.
Proc Iniciar:Entero
Puntero = CreateMutex(0, Verd, >Nombre = ""?NombreExe:Nombre) ' Si el nombre es nulo utilizar el nombre del ejecutable actual.
Si Error = ERROR_ALREADY_EXISTS
   Liberar ; ProcesoTerminar("",ProcesoActual)
FinSi
Resultado = Puntero
FinProc

Proc Liberar(Opcional h_Pun:Entero):Entero
Resultado = ReleaseMutex(>h_Pun?h_Pun:Puntero)
FinProc
FinClase

Var Instancia:PscMutex
Imagen
PowerDeath
 
Mensajes: 160
Registrado: Sab Ago 11, 2012 5:29 am

Sponsor


Volver a Librerias

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron