Как сделать чтобы запускалась только одна копия скрипта?

[agikon]

задача описана в заголовке.
поиск по форуму ничего не дал.
поисковая фраза была "одна копия программы" и ничего толкового..

 

[kaster]

agikon [?]

поиск по форуму ничего не дал.

да ну?
http://autoit-script.ru/index.php/topic,18.msg78.html#msg78

 

[VladUs]

Можно добавить флажок в реестр и при запуске программы, считывать этот флажок.
Примерно так :

OnAutoItExitRegister("_Check")

If RegRead("HKEY_CURRENT_USER\Software\Test", "TestKey") = 1 Then
    MsgBox(16,"Error","Программа  уже запущена") 
   OnAutoItExitUnregister("_Check")
Exit  
  Else
    RegWrite("HKEY_CURRENT_USER\Software\Test", "TestKey", "REG_SZ", "1")
EndIf

$hWnd = GUICreate("My GUI ")
GUISetState()

While 1
    If  GUIGetMsg()= -3 Then Exit
WEnd

Func _Check ()
RegWrite("HKEY_CURRENT_USER\Software\Test", "TestKey", "REG_SZ", "0")
EndFunc

 

[madmasles]

agikon,

;1:
Global $sTitleScript = @ScriptName & '{[/@$@\]}'
If WinExists($sTitleScript) Then Exit
AutoItWinSetTitle($sTitleScript)
;-------------------
;2:
#include <Misc.au3>
_Singleton(@ScriptName)
;-------------------
;3:
Global Const $MUTEX_MODIFY_STATE = 0x1F0001
$hMutex = DllCall("kernel32.dll", "hwnd", "OpenMutex", "int", $MUTEX_MODIFY_STATE, "int", False, "str", @ScriptName)
If $hMutex[0] Then
	$hWnd = WinGetHandle(@ScriptName)
	WinSetState($hWnd, "", @SW_RESTORE)
	DllCall("user32.dll", "int", "SetForegroundWindow", "hwnd", $hWnd)
	Exit
EndIf
$hMutex = DllCall("kernel32.dll", "hwnd", "CreateMutex", "int", 0, "int", False, "str", @ScriptName)
;-------------------

 

[kaster]

OffTopic:
agikon [?]

поисковая фраза была "одна копия программы" и ничего толкового..

опять ложь, именно по этой поисковой фразе я опять же вышел на ту же тему...

 

[agikon]

точто!
извиняюсь что-то проглючило меня не увидел.
извиняюсь.
спасибо что сказали.

 

[armenxxx1]

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)