Ответ: Releasemutex Api ( hi! )
yes, i do that...
Const ERROR_ALREADY_EXISTS = 183
Extern "win32"
Function CreateMutex:Int(lpMutexAttributes :Int , bInitialOwner:Int, lpName : Byte Ptr) = "CreateMutexA@12"
Function GetLastError:Int() = "GetLastError@0"
Function openmutex:Int(aaaa:Int, bbbb:Int,cccc : Byte Ptr) = "OpenMutex@12"
Function ReleaseMutexA:Int(ffff :Int) = "ReleaseMutex@4"
End Extern
ret = CreateMutex(0,1 ,"MYMUTEX".ToCstring())
If ret<>0 If getlasterror () = ERROR_ALREADY_EXISTS Print "Already present! 1"
Print releasemutexa (ret)
ret = CreateMutex(0,1 ,"MYMUTEX".ToCstring())
If ret<>0 If getlasterror () = ERROR_ALREADY_EXISTS Print "already present! 2"
Print releasemutexa (ret)
'an ... OPENMUTEX test.....
ret = openmutex(0,1 ,"MY MUTEX".ToCstring())
'compiler error:
'untitled4.bmx.gui.release.win32.x86.o: undefined reference to `OpenMutex@12'
but... don't work , what's wrong?
|