#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#SingleInstance, Force


Loop, %A_ScriptDir%\*.ahk
{
    If !(A_LoopFileFullPath == A_ScriptFullPath) {
        If Scc >=5
            Scc = 0
        SC++
        Scc++
        Dir_%A_Index% := A_LoopFileFullPath
        Script_Name%A_Index% := RegExReplace(A_LoopFileName, "\..*$")
        MSGG .= SC ": " Script_Name%A_Index% "`n"
        Menu, MyMenu, Add, % Script_Name%A_Index%, RanScript
        Menu, MyMenu, Icon, % Script_Name%A_Index%, %A_AhkPath%, % Scc
        
    }
}
MsgBox, % "В папке обнаружен :" SC " скриптов`n" MSGG
return



RanScript: ; Если скрипт существует - запускает скрипт
Dir_ := A_ScriptDir "\" A_ThisMenuItem ".ahk"
IfExist, % Dir_
	Run, % Dir_
else
	MsgBox, % "Скрипт Не найден`n" Dir_
return

^RButton::
#z::
Menu, MyMenu, Show  ; Показывать меню по нажатию Win-Z или Ctrl+Правый клик. ,
return

;= Создаем 3 тестовых скрипта
;====== [ Цикл нужен только для теста
Loop, 3
{
	IfNotExist, % A_Index ".ahk"
	{
		Text_%A_Index% := "MsgBox, " A_Index
		FileAppend, % Text_%A_Index%, % A_Index ".ahk"
	}
}
;==============================================

; Адреса скриптов в собственной папке "Имя скрипта")
Script_1 := A_ScriptDir "\1.ahk"
Script_2 := A_ScriptDir "\2.ahk"
Script_3 := A_ScriptDir "\3.ahk"

; Создать всплывающее меню добавлением пунктов в него.
Menu, MyMenu, Add, 1, RanScript
Menu, MyMenu, Add, 2, RanScript
Menu, MyMenu, Add, 3, RanScript
return  ; Конец секции автовыполнения.

RanScript: ; Если скрипт существует - запускает скрипт
IfExist, % Script_%A_ThisMenuItem%
	Run, % Script_%A_ThisMenuItem%
else
	MsgBox, % "Скрипт Не найден`n" Script_%A_ThisMenuItem%
return

^RButton::
#z::
Menu, MyMenu, Show  ; Показывать меню по нажатию Win-Z или Ctrl+Правый клик. ,
return