source: trunk/ab5.0/ablib/src/Classes/System/Threading/Mutex.ab@ 664

' Classes/System/Threading/Mutex.ab

Namespace System
Namespace Threading

Class Mutex
    Inherits System.Threading.WaitHandle

Public
    Sub Mutex()
        This.Handle(CreateMutex(NULL,FALSE,NULL))
    End Sub
    Sub Mutex(initiallyOwned As Boolean)
        This.Handle(CreateMutex(NULL,initiallyOwned As BOOL,NULL))
    End Sub
    Sub Mutex(initiallyOwned As Boolean, name As String)
        This.Handle(CreateMutex(NULL,initiallyOwned As BOOL,ToTCStr(name)))
    End Sub
    Sub Mutex(initiallyOwned As Boolean, name As String, ByRef createdNew As Boolean)
        This.Handle(CreateMutex(NULL,initiallyOwned As BOOL,ToTCStr(name)))
        If ERROR_ALREADY_EXISTS=GetLastError() Then createdNew=False Else createdNew=True
        'Throw UnauthorizedAccessException
        'Throw IOException
        'Throw ApplicationException
        'Throw ArgumentException
    End Sub
/*  Sub Mutex(Boolean, String, Boolean, MutexSecurity)  
        TODO
    End Sub*/

    Static Function OpenExisting (name As String) As Mutex
        This.Handle(OpenMutex(MUTEX_ALL_ACCESS,FALSE,ToTCStr(name)))
        'Throw ArgumentException
        'Throw ArgumentNullException
        'Throw WaitHandleCannotBeOpenedException
        'Throw IOException
        'Throw UnauthorizedAccessException
    End Function

/*  Static Function OpenExisting (String, MutexRights) As Mutex
        TODO
    End Function*/

    Sub Release()
        If ReleaseMutex(This.Handle()) = 0 Then
            'Throw ApplicationException
        End If
    End Sub

End Class

End Namespace 'Threading
End Namespace 'System