AutoHotkey Community

Code: Select all

#SingleInstance, Ignore

Code: Select all

#NoEnv
#SingleInstance, Off
SetWorkingDir, %A_ScriptDir%
MutexName := "qwerty"

    ;-----------------------------------
    ; check named mutex object
    ;-----------------------------------
    If DllCall("OpenMutex", Int, 0x100000, Int,NULL, Str,MutexName)
        Gosub, AlreadyRunning


    ;-----------------------------------
    ; create named mutex object
    ;-----------------------------------
    hMutex := DllCall("CreateMutex", Int,NULL, Int,False, Str,MutexName)


    ;-----------------------------------
    ; use a GUI to keep script running
    ;-----------------------------------
    Gui, Margin, 100, 60
    Gui, Add, Text,, %hMutex%
    Gui, Show,, Mutex

Return



;-------------------------------------------------------------------------------
GuiClose: ; clean up
;-------------------------------------------------------------------------------
    DllCall("ReleaseMutex", Ptr,hMutex)

ExitApp



;-------------------------------------------------------------------------------
AlreadyRunning: ; no return from here
;-------------------------------------------------------------------------------
    Msgbox,,, Already running, 1

ExitApp

Code: Select all

#NoEnv
#SingleInstance, Off
SetWorkingDir, %A_ScriptDir%
MutexName := "qwerty"

    ;-----------------------------------
    ; check named mutex object
    ;-----------------------------------
    If DllCall("OpenMutex", Int, 0x100000, Int,NULL, Str,MutexName)
        Gosub, AlreadyRunning


    ;-----------------------------------
    ; create named mutex object
    ;-----------------------------------
    hMutex := DllCall("CreateMutex", Int,NULL, Int,False, Str,MutexName)

Start:
   
    sendinput l
Return

Goto Start



;-------------------------------------------------------------------------------
AlreadyRunning: ; no return from here
;-------------------------------------------------------------------------------
    Msgbox,,, Already running, 1

ExitApp

Code: Select all

Unlocked = 1
MutexName := "qwerty"

If DllCall("OpenMutex", Int, 0x100000, Int,NULL, Str,MutexName)
        Gosub, AlreadyRunning

hMutex := DllCall("CreateMutex", Int,NULL, Int,False, Str,MutexName)

Loop {
Sleep, 100000
If Unlocked = 1
{
Msgbox, 4414, Locked, Locked
}
}


AlreadyRunning
MsgBox, 4, Locked!, Do you want to unlock it?
IfMsgBox Yes
Unlocked := 0,
ExitApp

Code: Select all

#NoTrayIcon
#SingleInstance, Off
MutexName := "random"

    If DllCall("OpenMutex", Int, 0x100000, Int, 0, Str, MutexName)
        Gosub, AlreadyRunning

    Menu, Tray, Icon ; show
    hMutex := DllCall("CreateMutex", Int, 0, Int, False, Str, MutexName)
    OnMessage(0x5678, "Receiver")
    OnExit, ReleaseMutex

Return



;-------------------------------------------------------------------------------
ReleaseMutex: ; clean up
;-------------------------------------------------------------------------------
    DllCall("ReleaseMutex", Ptr, hMutex)

ExitApp



;-------------------------------------------------------------------------------
Receiver(wParam, lParam) { ; handle incoming messages from additional instances
;-------------------------------------------------------------------------------
    MsgBox,, Receiver, wParam: %wParam%`nlParam: %lParam%
}



;-------------------------------------------------------------------------------
AlreadyRunning: ; additional instances run this subroutine
;-------------------------------------------------------------------------------
    DetectHiddenWindows, On
    WinGet, hwnd, List, %A_ScriptFullPath% ahk_class AutoHotkey
    Loop, %hwnd%
        If (hwnd%A_Index% != A_ScriptHwnd)
            ; send random data to first instance
            PostMessage, 0x5678, 555, 789,, % "ahk_id " hwnd%A_Index%

ExitApp ; no return from here

Code: Select all

selfInstanceCheck()

MsgBox, Instance running

ExitApp


selfInstanceCheck() {
;self instance check routine
#SingleInstance, off	;for any of the following below to be usefull you need to disable multiple instance prompts by ahk

;check previous instance
FileReadLine, pidFromFile, pidCheckFile, 1
MsgBox, %pidFromFile%
Process, Exist, %pidFromFile%
if (ErrorLevel != 0)	;process with PID in file(previous instace) does exist, so exit
	ExitApp

;no other instance so put own pid into file
Process, Exist
instancePID := ErrorLevel
FileDelete, pidCheckFile	;simple reset
FileAppend, %instancePID%, pidCheckFile	;place pid of  currently running process in a file
}

Code: Select all

MsgBox, % processInstances_check("svchost.exe")
processInstances_check(targetProc)
{
count = 0
For process in ComObjGet("winmgmts:").ExecQuery("Select *from Win32_Process")
	If (process.name = targetProc)
		count++
Return, count
}