mutex UDF

[Guest pierre]

This sample code is handy to prevent two scripts from running at the same time.

You just have to use a unique GUID as parameter to CreateMutex.

Maybe a cleaner version could find it's place into process.au3 ?

expandcollapse popup

#include <constants.au3>

AutoItSetOption ("MustDeclareVars", 1)

Global $hMutex
local $errorlevel
Local $closehandle

if CreateMutex("cad77ff0-5d14-11d9-9669-0800200c9a66", $hMutex) then
;;;; Body of program would go here;;;;
 While 1
     Sleep(5000)
 WEnd
;;;;;;;;
 $errorlevel = 0
else
 $closehandle = DllCall("kernel32.dll", "int", "CloseHandle", "long", $hMutex[0])
 $hMutex = ""; Prevent OnAutoItExit() from releasing an uncreated mutex

 msgbox($MB_SYSTEMMODAL + $MB_ICONEXCLAMATION + $MB_OK, "Error", "Don't run multiple " & @ScriptName)
 $errorlevel = 1
endif

Exit($errorlevel)



func CreateMutex($mutex, byref $hMutex)
 dim $ERROR_ALREADY_EXISTS = 183
 dim $LastError, $closehandle
 dim $retval

 $hMutex = DllCall("kernel32.dll", "long", "CreateMutexA", "ptr", 0, "int", 1, "str", $mutex)
 $LastError = DllCall("kernel32.dll", "long", "GetLastError")

 if $LastError[0] = $ERROR_ALREADY_EXISTS then
  $closehandle = DllCall("kernel32.dll", "int", "CloseHandle", "long", $hMutex[0])
  $retval = 0
 else
  $retval = 1
 endif

 return $retval
endfunc


func OnAutoItExit()
 dim $releasemutex, $closehandle

 if IsArray ($hMutex) then
  $releasemutex = DllCall("kernel32.dll", "int", "ReleaseMutex", "long", $hMutex[0])
  $closehandle = DllCall("kernel32.dll", "int", "CloseHandle", "long", $hMutex[0])
 endif
endfunc

[Valik]

Already posted a cleaner version...