f1::
IniRead, ar, Settings.ini, Section, ar
if ar = on
tooltip on
else
tooltip off
return
IniRead, ar, Settings.ini, Section, ar
f2:: ; r
If toggle := !toggle {
IniWrite, off, Settings.ini, Section, ar
} Else {
IniWrite, on, Settings.ini, Section, ar
}
return
f1::
if ar = on
tooltip on
else
tooltip off
return
1:
if mode = 1
tooltip 1
else if (mode = 2) or (mode = 3)
tooltip 2
Return
1:
if mode = 1
tooltip 1
else if mode = 2
tooltip 2
else if mode = 3
tooltip 2
ReturnF2_1:
if mode = 1
msgbox 1
else if mode = 2
msgbox 2
Return
F2_1:
#if mode = 1
msgbox 1
#if mode = 2
msgbox 2
Как же задать два режима для лейбла F2_1 ?
Может в лейбле проверять mode? Иначе вопрос не ясен.
]]>Единственно, что запись переменных я бы делал один раз по выходу из скрипта
Это по вкусу. Вдруг например процесс прибьют, а инфо нужное.
]]>Irbis, если использовать Ваш метод в одном файле сценария, но для разных окон, эту часть необходимо копировать для каждого окна или достаточно одной копии во всем файле?
Мой код, т.е. первые 4 строки, и последние от метки Exit: - добавляются один раз соответственно в начало и конец вашего скрипта, и служат лишь для хранения переменных между запусками скрипта. А окна, сценарии и прочее - это на ваше усмотрение.
P.S. Кстати, советую обратить внимание на вариант, который предложил serzh82saratov, хоть такое совмещение и не описано в справке, это проще и удобней. Единственно, что запись переменных я бы делал один раз по выходу из скрипта, а не каждый раз при изменении значения переменной.
]]>Ваш способ также предполагает создание файла с содержанием настроек?
Нет, он предполагает наличие многострочного комментария в начале скрипта.
/*
[Section]
mode=1
[End]
*/
IniRead, mode, %A_ScriptFullPath%, Section, Mode
^+1:: IniWrite, % (mode := 1), % A_ScriptFullPath, Section, Mode
^+2:: IniWrite, % (mode := 2), % A_ScriptFullPath, Section, Mode
#If mode = 1
1:: msgbox 1
#If mode = 2
1:: msgbox 2
#If
Exit:
tmpfile := A_ScriptDir . "\_" . A_Now . ".tmp"
newvars := "My_StaticVars := {"
for k,v in My_StaticVars
newvars .= k . ": """ . %k% . """, "
newvars := SubStr(newvars,1, -2) . "}"
Loop, Read, %A_ScriptFullPath%, %tmpfile%
if (InStr(A_LoopReadLine, "My_StaticVars :=") = 1)
out .= newvars "`n"
else
out .= A_LoopReadLine "`n"
FileDelete, %A_ScriptFullPath%
FileAppend, %out%, %A_ScriptFullPath%
ExitApp serzh82saratov, извиняюсь за глупый вопрос, так понимаю, Ваш способ также предполагает создание файла с содержанием настроек? Было бы отлично, если бы Вы для большей наглядности отредактировали предложенный вариант на основе работы скрипта из описания примера.
]]>