XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Programme: Mehrfachstart verhindern
Def CreateMutex(3)  !KERNEL32,CreateMutexA
Def ReleaseMutex(1) !KERNEL32,ReleaseMutex
Def GetLastError(0) !KERNEL32,GetLastError
Def CloseHandle(1)  !KERNEL32,CloseHandle

Proc MakeMutex

    Parameters MutexName$
    Declare Result&
    Result& = CreateMutex(0, 0, Addr(MutexName$))

    If GetLastError() = 183

        ReleaseMutex(Result&)
        CloseHandle(Result&)
        End

    EndIf

    Return Result&

EndProc

Declare Mutex&
Mutex& = MakeMutex(Hallo)  unverwechselbarer String
Cls
WaitKey
CloseHandle(Mutex&)
end

Def ReleaseMutex(1) !kernel32,ReleaseMutex
...Mutex erzeugen uns so weiter...
ReleaseMutex(mutex&)
end<