Import System.Threading
Moduł Module1
Ciemnawy mutexOk Boolowski
Ciemnawy m Jako Mutex
Okręt podwodny Magistrala ()
m = Nowy Mutex (Prawdziwy, "MyMutexName", mutexOk)
Jeśli nie mutexOk Wtedy
MsgBox ("Przykład przykład już, rezygnować ten one.")
Powrót
Kończyć Jeżeli
MsgBox ("Pierwszy Przykład")
GC.KeepAlive (m)
Końcówka Okręt podwodny
Końcówka Moduł
|