런쳐 기본 골격

#Include <Constants.au3>
#NoTrayIcon
Dim $ini = @ScriptDir & "\Data.ini"
Opt("TrayMenuMode",1)

 

Local $Menus = IniReadSectionNames($ini)

For $i=1 To $Menus[0]

    TrayCreateMenu($Menus[$i])

Next

TraySetState()

 

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $prefsitem
            Msgbox(64, "Preferences:", "OS:" & @OSVersion)
        Case $msg = $aboutitem
            Msgbox(64, "About:", "AutoIt3-Tray-sample.")
        Case $msg = $exititem
            ExitLoop
    EndSelect
WEnd

Exit