[Script] Только одна копия скрипта

[`p r o x y]

AutoIt: 3.3.0.0
Категория:
Название: (Script) Только одна копия скрипта
Описание: Пример, как запретить запуск / проверить, что запускается - более одной копии скрипта.
Код: Пример

Спойлер

Opt('TrayIconDebug',        1)
#Include <Misc.au3>
HotKeySet('{ESC}', '_Pro_Exit'); ESC - закрыть скрипт

Global  Const $sProName     = 'CID Checker'
Global  Const $sProNameWS   = StringStripWS($sProName, 8)
Global  Const $sProVerNo    = '0.1'
Global  Const $sProVer      = 'v' & $sProVerNo
Global  Const $sProNameVer  = $sProName & ' ' & $sProVer
Global  Const $sProIDText   = $sProNameVer & ' [ID] ' & $sProNameVer

; $sProIDText - может быть любой, константы приведены для примера

If NOT _Singleton($sProIDText, 1) Then
    MsgBox(48, 'Внимание', 'Одна копия программы уже запущена')
    _Pro_Exit()
EndIf

While 1
    Sleep(10)
    ToolTip(@HOUR & ':' & @MIN & ':' & @SEC, 10, 100, 'Точное время:')
WEnd

Func _Pro_Exit()
    Exit
EndFunc

Источник: `p r o x y

 

[zsergio]

$Proc_id=ProcessList (@ScriptName)
for $i=1 To $Proc_id[0][0] step 1
 if $Proc_id[$i][0]=@ScriptName And $Proc_id[$i][1] <> @AutoItPID Then ProcessClose ($Proc_id[$i][1]) ; закрывает предыдуще запущенное или заменить на EXIT - выход
Next