Code: Select all
OnExit, CloseS
DetectHiddenWindows On
SetWorkingDir %A_ScriptDir%
Menu FileMenu, Add, Exit, MenuHandler
Menu MenuBar, Add, File, :FileMenu
Menu Tray, Icon, skull.ico
Gui Menu, MenuBar
WinGet, WList,List,ahk_class AutoHotkey
Loop %WList%
{
Id:=% "WList" A_Index
WinGetTitle, Title, % "ahk_id " %Id%
a.=Title "|"
}
Gui, Add, ListBox, w400 h100 gClicked vpicked , %a%
Gui, Show, w430 h102, Running Scripts
Return
Clicked:
Gui, Submit
WinClose, %Picked% ;to close script
Return
CloseS:
ExitApp
MenuHandler:
ExitApp
ExitApp