#include <GUIConstantsEx.au3> #include <ButtonConstants.au3> #include <WindowsConstants.au3> #include <Constants.au3> #NoTrayIcon Opt("TrayMenuMode", 1) $nMain = GUICreate("CD Eject", 282, 300, -1, -1, $WS_SIZEBOX, $WS_EX_CONTEXTHELP) GUISetIcon("Main.ico") GUICtrlCreateLabel("Выбор привода:", 10, 10, 85, 15) GUICtrlCreateLabel("Горячие клавиши:", 10, 40, 95, 15) GUICtrlCreateLabel("Мышь:", 10, 70, 95, 15) GUICtrlCreateLabel("секунд", 195, 180, 50, 15) $nBtn1 = GUICtrlCreateButton ("Открыть/закрыть CD", 10, 241, 80, 28, $BS_MULTILINE) $nBtn2 = GUICtrlCreateButton ("Скрыть", 100, 241, 80, 28) $nBtn3 = GUICtrlCreateButton ("Выход", 190, 241, 80, 28) $nBtn4 = GUICtrlCreateButton('Задать', 211, 35, 60, 23) $nRom = GUICtrlCreateCombo("", 105, 7, 100) $nHotkey = GUICtrlCreateCombo("", 105, 37, 100) $nMouse = GUICtrlCreateCombo("2 левой", 105, 67, 100) GUICtrlSetData(-1, "1 левой|2 средней|1 средней|2 правой", "") $nCheck1 = GUICtrlCreateCheckbox("Заблокировать привод", 10, 100, 140, 15) $nCheck2 = GUICtrlCreateCheckbox("Автозапуск программы", 10, 120, 140, 15) $nCheck3 = GUICtrlCreateCheckbox("Извлекать диск при выключении", 10, 140, 185, 15) $nCheck4 = GUICtrlCreateCheckbox("Автозапуск CD", 10, 160, 185, 15) $nCheck5 = GUICtrlCreateCheckbox("Закрыть латок через", 10, 180, 130, 15) $nInput = GUICtrlCreateInput("30", 140, 178, 50, 20) $nUpdown = GUICtrlCreateUpdown($nInput) $nOpenrom = TrayCreateItem("Открыть/закрыть CD") ; Может быть больше строк в зависимости от колличества приводов. TrayCreateItem("") $nExp = TrayCreateItem("Открыть в проводнике") $nSettings = TrayCreateItem("Инфо о диске") TrayCreateItem("") $nSettings = TrayCreateItem("Настройки") TrayCreateItem("") $nExit = TrayCreateItem("Выход") TraySetState() While 1 $msg = TrayGetMsg() Select Case $msg = 0 ContinueLoop Case $msg = $nSettings _GUI() Case $msg = $nExit ExitLoop EndSelect WEnd Func _GUI() $msg = $nMain GUISetState() EndFunc |