Importer System.Threading
Enhet Module1
Dunkel mutexOk som Boolean
Dunkelt M som Mutex
Underhuvudsakligt ()
M = nya Mutex (True, ”MyMutexName”, mutexOk),
Om inte mutexOk därefter
MsgBox (”Another anföra som exempel redan spring som avslutar detta. ”)
Retur
Avsluta om
MsgBox (”anföra som exempel först”),
GC.KeepAlive (M)
Avsluta suben
Avsluta enheten
|