#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 |
