;---------------------------Чтение и проверка INI-файла--------------------------------------------

fnIniReadAndСheck(ByRef OutputINI, FilenameINI, SectionINI := "", KeyINI := ""
                  , KeyTrFl := True, ByRef varLen := 0
                  , ByRef SkipSec := False,  ByRef SkipVar := False, vWait :=  35)
{
  if FileExist(FilenameINI)
        {
          IniRead, OutputINI, %FilenameINI%, % SectionINI, % KeyINI
          varLen  :=  StrLen(OutputINI)
        }  
       Else
        {
          NumError := 1
          fnIniErrorOut(NumError, FilenameINI, SectionINI,  KeyINI, vWait) ; нет файла
          Return
        }
  
  ; Просто пропуск Секции/Переменной - ошибка игнорируется
  If (SkipSec || SkipVar)
        {
          If (SkipSec) ; У секции более высокий приоритет, если SkipSec = SkipVar = True
                OutputINI := SectionINI
            Else If (SkipSec)
                OutputINI := SectionINI                
          Return True
         }
  
  if ((OutputINI) && (OutputINI != "ERROR"))
            Return True ; переменная есть
         
  If (!OutputINI)
        {
          If (varLen = 0)
              {
                If (KeyTrFl)
                    {
                      NumError := 3
                      fnIniErrorOut(NumError, FilenameINI, SectionINI,  KeyINI, vWait) ; Пустые переменные не допустимы
                      Return                                              
                    }
                  Else
                    Return False ; Пустая переменная, не может быть это 0(varLen = 0)
              }
            Else
              Return False  ; Не пустая переменная(varLen != 0) может быть равна 0
        }
  
  ; Пропуск Секции/Переменной при ошибке
  If ((OutputINI = "ERROR") && (SkipSec || SkipVar)) ; У секции более высокий приоритет, если SkipSec = SkipVar = True
        {
          If (SkipSec)
                OutputINI := SectionINI
            Else If (SkipSec) (SkipSec)
                OutputINI := SectionINI                
          Return False
         }
         
  ; Пропуск Переменной в Секции при ошибке
  If ((OutputINI = "ERROR") && SkipVar)
        {
          OutputINI := SectionINI
          Return False
         }
         
  If (OutputINI = "ERROR") ; Ошибка отсутствует Секция и/или Переменная
        {
          
          NumError := 2
          fnIniErrorOut(NumError := 2, FilenameINI, SectionINI,  KeyINI, vWait) ; не верная переменная или секция
          Return
        }
}
;--------------------------------------------------------------------------------------------

;--------------------Диагностика об ошибках в INI (fnIniReadAndСheck)------------------------
fnIniErrorOut(NumError, ByRef FilenameINI := "", ByRef SectionINI := "",  ByRef KeyINI := "", SecWait :=  35, ByRef cMsgBoxType := 8208)
{
Global fnIniErrorOut_LabelMin, fnIniErrorOut_LabelExit


  If (NumError = 0)
        {
          fnIniErrorOut_LabelMin  := "ErrorOutMin"
          fnIniErrorOut_LabelExit := "ErrorOutExit"
          ;MsgBox На внутренние обработчики т.к. NumError = 0
          Return
        }
  Else If (NumError = 1000)
            {
              ;MsgBox На внешние обработчики т.к. NumError = 1000
              Return
            }

; cMsgBoxType по умолчанию равна AllMainConst.ahk
; сMsgBoxError_Ok         :=0+8192+16 ;only an OK button + Task Modal + Icon Hand (stop/error)


  arIniErrorTXT :=  [" Отсутствует INI-файл"                                        ; = 1
                    ," В имени переменной/её нет/ошибка в имени секции."            ; = 2
                    ," Переменная не может быть пустой."                            ; = 3
                    ," Переменная содержит недопустимое значение."                  ; = 4
                    ," Переменная должна быть числом."                              ; = 5
                    ," Переменная должна быть целым числом."                        ; = 6
                    ," Переменная должна быть числом с плавающей точкой."           ; = 7
                    ," Переменная меньше допустимого значения и не число."          ; = 8
                    ," Переменная больше допустимого значения и не число."          ; = 9
                    ," Переменная  вне допустимого диапазона или не число."         ; = 10
                    ," Переменная содержит не верный путь и/или программу."         ; = 11
                    ," Переменная содержит не верный путь."                         ; = 12
                    ," Переменная не число, ни целое/ни с плавающей точкой."        ; = 13
                    ," Резерв или ошибка в программе."                              ; = 14
                    ," Резерв или ошибка в программе."                              ; = 15
                    ," Резерв или ошибка в программе."                              ; = 16
                    ," Резерв или ошибка в программе."                              ; = 17
                    ," Резерв или ошибка в программе."                              ; = 18
                    ," Резерв или ошибка в программе."                              ; = 19
                    ," Резерв или ошибка в программе."                              ; = 20
                    ," Резерв или ошибка в программе."                              ; = 21
                    ," Резерв или ошибка в программе."]                             ; = 22

  Error_TXT :=  arIniErrorTXT[NumError]
  cWait :=  SecWait
  Gosub %fnIniErrorOut_LabelMin%
    cTitle      :=  "`n`n Ошибка в INI-файле" ;Титул MsgBox
    cMsgErr     :=  "                                 ОШИБКА В INI-ФАЙЛЕ`n`n  ->>" Error_TXT
    cTxtErrAd1  :=  "`n`n Файл : " FilenameINI
    cTxtErrAd2  :=  "`n Секция = [" SectionINI "] `n Ключ = " KeyINI
    ;cWait       :=  35
    cTxtErrAd3  :=  "`n`n Выход из программы(Тайм-аут = " cWait " сек)."
      MsgBox % cMsgBoxType, %cTitle%, %cMsgErr% %cTxtErrAd1% %cTxtErrAd2% %cTxtErrAd3%, %cWait%      
    Gosub %fnIniErrorOut_LabelExit%
Return

ErrorOutMin:
Thread, NoTimers
Critical 
    ;Send, {Escape}
    Sleep, 600
    WinMinimize, A
Critical , Off
Thread, NoTimers, false 
Return

ErrorOutExit:
  ExitApp
Return
}
;--------------------------------------------------------------------------------------------

A := []
A[b] := "C"
msgbox % A[b]

[keys]
+a::E
^s::e
!d::Q

;IniWrite, *1::2`n*3::`n*2::1, %A_ScriptDir%\HK.ini, keys

ar := []
IniRead, Data, %A_ScriptDir%\HK.ini, keys
Loop, parse, Data, `n   
{ 
    RegExMatch(A_LoopField, "(.*?)::(.*)", m) ; Тут всё почти понятно, но две строки ниже...
    ar[m1] := m2 ; m1 - индекс, но ниже это Hotkey-клавиша.
    Hotkey, %m1%, remap, useerrorlevel ; Я вот про это, хотя клавиша и есть код, но... т.е. непонятно.
}
Return

remap: 
    Send % ar[A_ThisHotkey] ; А это точно не понятно, адресация по нажатой, это как.
    Return

;Тут только OK
  сMsgBoxInfo_Ok          :=0+8192+64 ;only an OK button + Task Modal + Icon Asterisk(info)
  сMsgBoxError_Ok         :=0+8192+16 ;only an OK button + Task Modal + Icon Hand (stop/error)  
  сMsgBoxChoice_Ok        :=0+8192+48 ;only an OK button + Task Modal + Icon Exclamation
;Тут Yes/No(Да/Нет) 
  сMsgBoxQuest_YN         :=4+8192+32 ;Yes/No button  + Task Modal + Icon Question
  сMsgBoxInfo_YN          :=4+8192+64 ;Yes/No button + Task Modal +  Icon Asterisk (info)
;Тут OK/Cansel(Да/Отмена)
  сMsgBoxInfo_OK_Cansel   :=1+8192+64 ;OK/Cansel button + Task Modal +  Icon Asterisk (info)
  сMsgBoxChoice_OK_Cansel :=1+8192+48 ;OK/Cansel button + Task Modal + Icon Exclamation
  сMsgBoxQuest_OK_Cansel  :=1+8192+32 ;OK/Cansel button  + Task Modal + Icon Question
  

;Общие определения
; Пропуск - тут много...

; Сокращения и сообщения
cNoLbL  := "lNoLabel" ; Метка-заглушка для вывода справки и просто так
cOnHK      := "ON" 
cOffHK     := "OFF"

; Только для Hotkey и не печатаемые символы
cCrushMore    := "~" ; для сочетаний типа Ctrl+Win+10 надо добавить (cCrush)+Ctrl+Win+10
cCrush2       := "*"
cCrush3       := "@"
cCrushItself  := "$"
cCrushAnd     := "&"
cCrushAndSPS  := " & "


;Акронимы и клавиши модификаторы
cMenuWin    := "AppsKey"
cRWin       := "RWin"
cLWin       := "LWin" 
cCtrl       := "Ctrl"
cRCtrl      := "RCtrl"
cLCtrl      := "LCtrl"
cShift      := "Shift"
cRShift     := "RShift"
cLShift     := "LShift"
cAlt        := "Alt"
cRAlt       := "RAlt"
cLAlt       := "LAlt"

iAsKeyName        := 1  ; индекс имени
iAsKeyAcronym     := 2  ; индекс акронима
arAssigKey        :=[[cMenuWin,cMenuWin]
                    ,[cRWin,cRWin], [cLWin,cLWin]
                    ,[cCtrl,"^"], [cRCtrl,">^"],[cLCtrl,"<^"]
                    ,[cShift,"+"],[cRShift,">+"],[cLShift,"<+"]
                    ,[cAlt,"!"],  [cRAlt,">!"],  [cLAlt,"<!"]]

;----------------fnHotkey = основная функция генерации Hotkey--------------------------------------------
;На вход
;1-й Переменная это строка из INI содержащая клавиши не более трёх
;2-й Метка - она должна быть
;3-й Включит/выключить True/False. Включить по умолчанию
;4-й Проверять(по умолчанию) или не проверять. Рекомендуется не отключать, что бы избежать конфликтов.

;На выход 
;Имя горячей клавиши(строка) ,а при ошибке авто-отработка и выход.
;Выходит без проверки и действий при BaseHotkeyFS  := False
fnHotkey(varKeyIn, varLabelIn, varStatusIn:=True, varСheckHotkeyIn:=True)
{
Global ;The directive "global" - should not be an empty string.

;Глобальные константы для справки
;cCrushItself - "$" Когда надо вызывать ту же клавишу внутри её вызова
;cCrushMore   - это для 2-х и 3-х. Дополнить Hotkey "~", т.е. ~Ctrl & Win $10 (~^#10) что бы обойти левые и правые модификаторы
;cCrushAndSPS - это " & "

;Локальные для этой функции переменные(меняются), константы и массивы
Local i, j, iLoop, jLoop
Local vHotKeyWork, cMaxArHotKeyStr, arHotKeyStr, cMaxArHotKeyAsg, arHotKeyAsg, сHotKeyStrErr
;Thread, NoTimers
  If (!BaseHotkeyFS) ; Ещё читается INI
            Goto  lFnHotkeyExit
  if (!StrLen(varKeyIn)) ; Проверка на пустые Hotkey клавиши
            Goto  lFnHotkeyExit
;Инициализация констант, переменных, массивов - это обязательно
  i :=  0, j :=  0, iLoop :=  0, jLoop :=  0
  vHotKeyWork :=  "", cMaxArHotKeyStr :=  0,  arHotKeyStr :=  [], cMaxArHotKeyAsg :=  0,  arHotKeyAsg :=  [], сHotKeyStrErr :=  ""

;------Начинаем работу------

;Расчёт и генерация строк и акнонимов, а так же сHotKeyStrErr если будет ошибка для Hotkey  
  arHotKeyStr     :=  fnParseSPS(varKeyIn)    ;Массив для текста клавиш - они нужны для построения акронимов
  cMaxArHotKeyStr :=  arHotKeyStr.MaxIndex()  ;Расчёт длины, т.е. числа клавиш
  i := 0
  Loop %cMaxArHotKeyStr%
    {
      i++
      arHotKeyAsg[i]  :=  fnAssigKey(arHotKeyStr[i])
    }
  cMaxArHotKeyAsg :=  arHotKeyAsg.MaxIndex()
  
;Построение сочетания клавиш для Hotkey(vHotKeyWork) и генерация строки клавиш для ошибки(сHotKeyStrErr)
  i :=  0,  vHotKeyWork :=  "",  сHotKeyStrErr :=  ""
  Loop %cMaxArHotKeyAsg%
    {
      i++
      If (i = 1)
            сHotKeyStrErr :=  arHotKeyStr[i]
          Else
            сHotKeyStrErr :=  сHotKeyStrErr cCrushAndSPS arHotKeyStr[i]
      vHotKeyWork :=  vHotKeyWork arHotKeyAsg[i]
    }
   
  HotKey %vHotKeyWork%, %varLabelIn%, %cOffHK%, UseErrorLevel  ; Включение HotKey
  MyErrorLevel := ErrorLevel
  If (MyErrorLevel != 0)
    {
        сHotKeyStrErr := "HotKey" cSps сHotKeyStrErr cComma cSps varLabelIn 
      If (MyErrorLevel = 1)
            Error_TXT := "В параметре Label указано несуществующее имя метки."
      If (MyErrorLevel = 2)
            Error_TXT := "Дубликат горячих клавиш или они не поддерживаются системой."
      If (MyErrorLevel = 3)
            Error_TXT := "Неподдерживаемый модификатор горячей клавиши."
      If (MyErrorLevel = 4)
            Error_TXT := "Клавиши не пригодны для эмуляции AltTab или ShiftAltTab."
      If (MyErrorLevel = 5)
            Error_TXT := "Команда пытается изменить несуществующую горячую клавишу."
      If (MyErrorLevel = 6)
            Error_TXT := "Команда пытается изменить несуществующий вариант существующей горячей клавиши."
      If (MyErrorLevel = 98)
            Error_TXT := "Создание данной горячей клавиши превысило лимит в 700 горячих клавиш."
      If (MyErrorLevel = 99)
            Error_TXT := "Недостаточно памяти. Ваша OS нестабильна, требуется очистка и настройка."

      Gosub lMinWinGameKeys
      cTitle      :=  "Ошибка в HotKey" ;Титул MsgBox
      cMsgErr     :=  "`n Ошибка в определении - " сHotKeyStrErr
      cTxtErrAd1  :=  "`n`n Тип ошибки :"
      cTxtErrAd2  :=  "`n " Error_TXT
      cWait       :=  35
      cTxtErrAd3  :=  "`n`n Выход из программы(Тайм-аут = " cWait " сек)."
      MsgBox % сMsgBoxError_Ok, %cTitle%, %cMsgErr% %cTxtErrAd1% %cTxtErrAd2% %cTxtErrAd3%, %cWait%      
      Gosub lExitTotalKeys
    }
  
  If (varStatusIn)
          HotKey %vHotKeyWork%, %varLabelIn%, %cOnHK%, UseErrorLevel
  
lFnHotkeyExit:
;Thread, NoTimers, false
Return vHotKeyWork
}
;-------------------------------------------------------------------------------------------


;------------------------Функция возврата акронима спец. клавиш--------------------------------
fnAssigKey(KeyIn)
{
 Local i, iLoop, flg
  i := 0, iLoop := 0, flg :=  False
  
  flg   :=  False ;Флаг акронима
  
  iLoop :=  arAssigKey.MaxIndex()
  i     :=  0
  loop %iLoop%
    {
      i++
      if (arAssigKey[i,iAsKeyName] = KeyIn)
          {
            flg  :=  True  ; Нашли акроним
            KeyOut  :=  arAssigKey[i,iAsKeyAcronym], break
          }
   }
  If (flg)
      Return KeyOut ; Акроним нашли, возврат не клавиши, а акронима
    Else
      Return KeyIn ; Акроним не нашли, возврат клавиши, что нам дали на входе
}

;---------------Функция которая убирает пробелы и табуляцию. Возвращает строку сиволов через пробел -------------------
; Если Ar = True то массив,  иначе строка
fnParseSPS(buffer, ar := True)
{
local Arr, i, Row, OutStr
  Arr := [], j := 0, i := 0, Row  := "", OutStr := ""
  Loop, parse, buffer, " "
    { 
      Row := RegExReplace(A_LoopField, """| |" A_Tab)
        If Row is space 
            Continue
      Arr[++i] := Row
    }
  If(ar)
;Возврат массива    
    Return Arr  

;Возврат строки - символы через пробел  
  i := Arr.MaxIndex() 
  Loop %i%
    {
      j++
      ;OutStr  := OutStr Arr[j]
      If (i != j)
          OutStr  := OutStr Arr[j] " "
        Else
          OutStr  := OutStr Arr[j]
    }
Return OutStr
}


Goto leave_FnAr_KES
;----------------------------------Заглушки--------------------------------------------------
;Для ремаппинга клавиш
lPressKeyToMap:
Return

lSentKeyToMap:
Return

;Просто заглушка
lNoLabel: 
Return
;-------------------------------------------------------------------------------------------
leave_FnAr_KES: