Показать сообщение отдельно
Старый 26.07.2008, 16:44   #3
gatsu.
AnyKey`щик
 
Регистрация: 26.07.2008
Сообщений: 4
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: 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?
(Offline)
 
Ответить с цитированием