De invoer System.Threading
Module Module1
Schemerige mutexOk zoals Van Boole
Schemerig m als Mutex
Sub Leiding ()
m = Nieuwe Ware Mutex (, „MyMutexName“, mutexOk)
Als niet mutexOk toen
MsgBox („Een andere instantie reeds lopen, die met dit ophouden. “)
Terugkeer
Eind als
MsgBox („Eerste Instantie“)
GC.KeepAlive (m)
Sub van het eind
De Module van het eind
|