11 lines
316 B
Text
11 lines
316 B
Text
SYS "CreateMutex", 0, 1, "UniqueLockName" TO Mutex%
|
|
SYS "GetLastError" TO lerr%
|
|
IF lerr% = 183 THEN
|
|
SYS "CloseHandle", Mutex%
|
|
SYS "MessageBox", @hwnd%, "I am already running", 0, 0
|
|
QUIT
|
|
ENDIF
|
|
|
|
SYS "ReleaseMutex", Mutex%
|
|
SYS "CloseHandle", Mutex%
|
|
END
|