Показать сообщение отдельно
Старый 27.07.2008, 00:57   #7
gatsu.
AnyKey`щик
 
Регистрация: 26.07.2008
Сообщений: 4
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Releasemutex Api ( hi! )

WOW! openmutex seems to work!

Extern "win32"
	Function CreateMutex:Int(lpMutexAttributes :Int , bInitialOwner:Int, lpName : Byte Ptr) = "CreateMutexA@12" 
	Function openmutex:Int(aaaa:Int, bbbb:Int,cccc : Byte Ptr) = "OpenMutexA@12" 
End Extern

print "there is mutex: <TEST> ?"
if  openmutex(1,1,"test".tocstring()) print "YES!"; else print "NO!"

print "creating TEST mutex"
CreateMutex(0,1, "test".ToCstring())

if  openmutex(1,1,"test".tocstring()) print "YES!"; else print "NO!"
thx alcoSHoLiK and HolyDel !

for Jimon... umh... i don't know how to use the loadlibraryA... ( any example? )
(Offline)
 
Ответить с цитированием