Серый форум — AHK: #SingleInstance Force как определить был ли запущен скрипт

Re: AHK: #SingleInstance Force как определить был ли запущен скрипт

2015-11-06T10:42:38Z

#SingleInstance Off
Gui, Show, w250 h0 ,Gui для наглядности
Process, priority, , Realtime
Pid1 := ErrorLevel

Loop
{
ProcessName := "AutoHotkey.exe"
for Process in ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process Where Name = '" ProcessName "'")
if (InStr(Process.CommandLine,A_ScriptName) && Process.ProcessId!=%Pid1%)
{
    ProcessId := Process.ProcessId
    SearchProcess := Process.CommandLine
        If ProcessId-Pid1=0
        {
            Goto ExitLoop
        }
        Else
        {
            OldPar := "1"
            RegExMatch(SearchProcess, A_ScriptName "(.*)", OldPar)
            StringReplace,OldPar,OldPar,%A_ScriptName%,,All
            Process.Terminate
        }
}
}
ExitLoop:
If OldPar
MsgBox Скрипт перезапущен `n %OldPar%
Else
MsgBox Скрипт запущен в первые
Return

Escape::
GuiClose:
ExitApp

Спасибо, теперь работает как задумано.

Re: AHK: #SingleInstance Force как определить был ли запущен скрипт

2015-11-06T09:50:00Z

Ссылка.

ProcessName := "AutoHotkey.exe"
Processes := ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process Where Name = '" ProcessName "'")

Как можно пользоваться поиском.

Re: AHK: #SingleInstance Force как определить был ли запущен скрипт

2015-11-06T08:30:25Z

На форуме нашёл похожую проблему и её решение от: creature.ws
На подобии получилось следующее:

#SingleInstance Off
Gui, Show, w250 h0 ,Gui для наглядности
Process, priority, , Realtime
Pid1 := ErrorLevel

Loop
{
for Process in ComObjGet("winmgmts:").InstancesOf("Win32_Process")
if (InStr(Process.CommandLine,A_ScriptName) && Process.ProcessId!=%Pid1%)
{
   ProcessId := Process.ProcessId
   SearchProcess := Process.CommandLine
      If ProcessId-Pid1=0
      {
         Goto ExitLoop
      }
      Else
      {
         OldPar := "1"
         RegExMatch(SearchProcess, A_ScriptName "(.*)", OldPar)
         StringReplace,OldPar,OldPar,%A_ScriptName%,,All
         Process.Terminate
      }
}
}
ExitLoop:
If OldPar
MsgBox Скрипт перезапущен `n %OldPar%
Else
MsgBox Скрипт запущен в первые
Return

Escape::
GuiClose:
ExitApp

Не понимаю как правильно написать,

if (InStr(Process.CommandLine,A_ScriptName) && Process.ProcessId!=%Pid1% && Process.Caption=AutoHotkey.exe)

что-бы реагировало только на скрипты, вместо того, что есть:

if (InStr(Process.CommandLine,A_ScriptName) && Process.ProcessId!=%Pid1%)

которая закрывает всё содержащее имя скрипта(блокноты итп)

Re: AHK: #SingleInstance Force как определить был ли запущен скрипт

2015-10-30T12:31:32Z

Попытался сделать через посыл сообщения, но поток "нового" скрипта не стартует пока не завершится "старый". Так что только через файл.

#SingleInstance,Force
OnExit,EXIT

iniread,ExitReason,%A_scriptdir%\ExitReason,A_ExitReason,A_ExitReason
filedelete,%A_scriptdir%\ExitReason
tooltip,% ExitReason
return

f1::
return


exit:
IniWrite,%A_ExitReason%,%A_scriptdir%\ExitReason,A_ExitReason,A_ExitReason
exitapp

Re: AHK: #SingleInstance Force как определить был ли запущен скрипт

2015-10-30T09:01:33Z

OnExit с A_ExitReason рассматривал как вариант, но не хочеться создавать файлы при работе срипта.

Re: AHK: #SingleInstance Force как определить был ли запущен скрипт

2015-10-30T08:51:45Z

Возможно, можно мониторить сообщение закрытия (надо погуглить), и записывать в файл по OnExit, затем считывать на старте этот файл... возможно это бред.

AHK: #SingleInstance Force как определить был ли запущен скрипт

2015-10-30T08:33:30Z

Есть ли способ узнать заменял ли новый процесс скрипта старый, при его запуске с директивой #SingleInstance Force, для не скомпилированного скрипта.
Код ниже работает только для скомпилированной версии, и я не уверен, что он будет всегда корректно срабатывать.

#NoEnv
#Persistent
#NoTrayIcon
#SingleInstance Off
Gui, Show, w250 h0 ,Gui для наглядности

Process, priority, , Realtime
Pid := ErrorLevel

Process, Wait, test.exe, 0.1
If ErrorLevel != %Pid%
	{
	Process, Close, % ErrorLevel
	MsgBox Старый процесс закрыт как "#SingleInstance Force"
	}
Return

GuiClose:
ExitApp