;Creator: Eedis
;Email: Killerbender53@yahoo.com
#Persistent
#SingleInstance
#NoTrayIcon

^z::
{
a:
IniRead, Program1Name, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program1Name
IniRead, Program2, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program2
IniRead, Program2Name, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program2Name
IniRead, Program3, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program3
IniRead, Program3Name, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program3Name
IniRead, Program4, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program4
IniRead, Program4Name, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program4Name
IniRead, Program5, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program5
IniRead, Program5Name, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program5Name
IniRead, Program6, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program6
IniRead, Program6Name, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program6Name
IniRead, Program7, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program7
IniRead, Program7Name, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program7Name
IniRead, Program8, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program8
IniRead, Program8Name, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program8Name
IniRead, Program9, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program9
IniRead, Program9Name, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program9Name
Menu, FileMenu2, Add, &Program1Name, &program1a
Menu, FileMenu2, Add, &Program2Name, &Program2a
Menu, FileMenu2, Add, &Program3Name, &Program3a
Menu, FileMenu2, Add, &Program4Name, &Program4a
Menu, FileMenu2, Add, &Program5Name, &Program5a
Menu, FileMenu2, Add, &Program6Name, &Program6a
Menu, FileMenu2, Add, &Program7Name, &Program7a
Menu, FileMenu2, Add, &Program8Name, &Program8a
Menu, FileMenu2, Add, &Program9Name, &Program9a

Menu, FileMenu3, Add, &Program1Name, &program1
Menu, FileMenu3, Add, &Program2Name, &Program2
Menu, FileMenu3, Add, &Program3Name, &Program3
Menu, FileMenu3, Add, &Program4Name, &Program4
Menu, FileMenu3, Add, &Program5Name, &Program5
Menu, FileMenu3, Add, &Program6Name, &Program6
Menu, FileMenu3, Add, &Program7Name, &Program7
Menu, FileMenu3, Add, &Program8Name, &Program8
Menu, FileMenu3, Add, &Program9Name, &Program9
;Menu, HelpMenu, Add, About, MenuHandler
;Menu, HelpMenu, Add, Commands, MenuHandler
Menu, FileMenu, Add, Change-File
Menu, FileMenu, Add, Change-Dir

Menu, FileMenu, Add, Change-File, :FileMenu2
Menu, FileMenu, Add, Change-Dir, :FileMenu3
Menu, MyMenuBar, Add, &Change..., :FileMenu
;Menu, MyMenuBar, Add, &Help, :HelpMenu
Menu, MyMenuBar, Add, &Exit
Gui, Menu, MyMenuBar
Gui, -border
gui, color, #000000
Gui, Add, Button, x6 y6 w90 h40 gButton1, %Program1Name%
Gui, Add, Button, x106 y6 w90 h40 gButton2, %Program2Name%
Gui, Add, Button, x206 y6 w90 h40 gButton3, %Program3Name%
Gui, Add, Button, x6 y56 w90 h40 gButton4, %Program4Name%
Gui, Add, Button, x106 y56 w90 h40 gButton5, %Program5Name%
Gui, Add, Button, x206 y56 w90 h40 gButton6, %Program6Name%
Gui, Add, Button, x6 y106 w90 h40 gButton7, %Program7Name%
Gui, Add, Button, x106 y106 w90 h40 gButton8, %Program8Name%
Gui, Add, Button, x206 y106 w90 h40 gButton9, %Program9Name%
Gui, Show, w306 h156, E-Opener
Return

&Change...:
Return

&Program1a:
FileSelectFile, program11
if Errorlevel = 1
Return
SplitPath, program11,prgnopathext1,,, prgnopath1,
iniwrite, %prgnopath1%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program1Name
iniwrite, %program11%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program1
gui, destroy
goto, a
return

&Program2a:
FileSelectFile, program22
if Errorlevel = 1
Return
SplitPath, program22,,,, prgnopath2,
iniwrite, %prgnopath2%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program2Name
iniwrite, %program22%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program2
gui, destroy
goto, a
return

&Program3a:
FileSelectFile, program33
if Errorlevel = 1
Return
SplitPath, program33,,,, prgnopath3,
iniwrite, %prgnopath3%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program3Name
iniwrite, %program33%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program3
gui, destroy
goto, a
return

&Program4a:
FileSelectFile, program44
if Errorlevel = 1
Return
SplitPath, program44,,,, prgnopath4,
iniwrite, %prgnopath4%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program4Name
iniwrite, %program44%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program4
gui, destroy
goto, a
return

&Program5a:
FileSelectFile, program55
if Errorlevel = 1
Return
SplitPath, program55,,,, prgnopath5,
iniwrite, %prgnopath5%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program5Name
iniwrite, %program55%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program5
gui, destroy
goto, a
return

&Program6a:
FileSelectFile, program66
if Errorlevel = 1
Return
SplitPath, program66,,,, prgnopath6,
iniwrite, %prgnopath6%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program6Name
iniwrite, %program66%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program6
gui, destroy
goto, a
return

&Program7a:
FileSelectFile, program77
if Errorlevel = 1
Return
SplitPath, program77,,,, prgnopath7,
iniwrite, %prgnopath7%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program7Name
iniwrite, %program77%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program7
gui, destroy
goto, a
return

&Program8a:
FileSelectFile, program88
if Errorlevel = 1
Return
SplitPath, program88,,,, prgnopath8,
iniwrite, %prgnopath8%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program8Name
iniwrite, %program88%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program8
gui, destroy
goto, a
return

&Program9a:
FileSelectFile, program99
if Errorlevel = 1
Return
SplitPath, program99,,,, prgnopath9,
iniwrite, %prgnopath9%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program9Name
iniwrite, %program99%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program9
gui, destroy
goto, a
return

&Program1:
FileSelectFolder, program11dir
if errorlevel = 1
Return
SplitPath, program11dir, Program1dir,,, prgnopath1,
iniwrite, %program1Dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program1Name
iniwrite, %program11dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program1
gui, destroy
goto, a
return

&Program2:
FileSelectFolder, program22Dir
if Errorlevel = 1
Return
SplitPath, program22Dir, Program2dir,,, prgnopath2,
iniwrite, %program2Dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program2Name
iniwrite, %program22dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program2
gui, destroy
goto, a
return

&Program3:
FileSelectFolder, program33dir
if Errorlevel = 1
Return
SplitPath, program33dir, Program3dir,,, prgnopath3,
iniwrite, %program3dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program3Name
iniwrite, %program33dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program3
gui, destroy
goto, a
return

&Program4:
FileSelectFolder, program44dir
if Errorlevel = 1
Return
SplitPath, program44dir, Program4dir,,, prgnopath4,
iniwrite, %program4dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program4Name
iniwrite, %program44dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program4
gui, destroy
goto, a
return

&Program5:
FileSelectFolder, program55dir
if Errorlevel = 1
Return
SplitPath, program55dir, Program5dir,,, prgnopath5,
iniwrite, %program5dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program5Name
iniwrite, %program55dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program5
gui, destroy
goto, a
return

&Program6:
FileSelectFolder, program66dir
if Errorlevel = 1
Return
SplitPath, program66dir, Program6dir,,, prgnopath6,
iniwrite, %program6dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program6Name
iniwrite, %program66dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program6
gui, destroy
goto, a
return

&Program7:
FileSelectFolder, program77dir
if Errorlevel = 1
Return
SplitPath, program77dir, Program7dir,,, prgnopath7,
iniwrite, %program7dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program7Name
iniwrite, %program77dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program7
gui, destroy
goto, a
return

&Program8:
FileSelectFolder, program88dir
if Errorlevel = 1
Return
SplitPath, program88dir, Program8dir,,, prgnopath8,
iniwrite, %program8dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program8Name
iniwrite, %program88dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program8
gui, destroy
goto, a
return

&Program9:
FileSelectFolder, program99dir
if Errorlevel = 1
Return
SplitPath, program99dir, Program9dir,,, prgnopath9,
iniwrite, %program9dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program9Name
iniwrite, %program99dir%, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program9
gui, destroy
goto, a
return

;&About:
;Return

;&Help:
;Return

MenuHandler:
Return

Change-File:
Return

Change-Dir:
Return

&Exit:
ExitApp

Button1:
IniRead, Program1, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program1
run, %Program1%
gui, destroy
return

Button2:
IniRead, Program2, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program2
run, %Program2%
gui, destroy
return

Button3:
IniRead, Program3, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program3
run, %Program3%
gui, destroy
return

Button4:
IniRead, Program4, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program4
run, %Program4%
gui, destroy
return

Button5:
IniRead, Program5, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program5
run, %Program5%
gui, destroy
return

Button6:
IniRead, Program6, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program6
run, %Program6%
gui, destroy
return

Button7:
IniRead, Program7, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program7
run, %Program7%
gui, destroy
return

Button8:
IniRead, Program8, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program8
run, %Program8%
gui, destroy
return

Button9:
IniRead, Program9, %A_ProgramFiles%\E-Opener\Open.ini, Settings, Program9
run, %Program9%
gui, destroy
return
}

^x::gui, destroy