Importe System.Threading
Modul Module1
Schwaches mutexOk, wie Boolesch
Schwaches m als Mutex
Vorhauptleitung ()
m = neues Mutex (, „MyMutexName“, mutexOk ausrichten)
Wenn nicht mutexOk dann
MsgBox („ein anderes, dieses one.") beendigend bereits laufen des Falls
Rückkehr
Beenden wenn
MsgBox („erste Instanz“)
GC.KeepAlive (m)
Enden-Unterseeboot
Enden-Modul
|