Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: [решено] Tray menu
Показать сообщение отдельно

Аватара для beve

Старожил


Сообщения: 307
Благодарности: 137

Профиль | Отправить PM | Цитировать


Вот, например:
Код: Выделить весь код
#Include <Constants.au3>
#NoTrayIcon

Opt("TrayMenuMode", 1 + 2)  
$checkeditem    = TrayCreateItem("Checked")
$exititem       = TrayCreateItem("Exit")
TraySetState()

While 1
$msg = TrayGetMsg()
Switch $msg
    Case $checkeditem 
        If BitAND(TrayItemGetState($checkeditem), $TRAY_CHECKED) Then 
        TrayItemSetState($checkeditem, $TRAY_UNCHECKED) 
        Else 
        TrayItemSetState($checkeditem, $TRAY_CHECKED) 
        ;RegWrite() здесь производишь например запись значения в реестр 
        EndIf 
    Case $exititem
        Exit 
EndSwitch 
WEnd

-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.

Это сообщение посчитали полезным следующие участники:

Отправлено: 12:31, 19-05-2009 | #3

Название темы: [решено] Tray menu