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

Показать сообщение отдельно

Новый участник


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

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


Код: Выделить весь код
#include "WinGetTitleEx.au3"
#include <Constants.au3>
#include <Misc.au3>
#include <GUIConstantsEx.au3>

Opt("TrayOnEventMode", 1)
Opt("GUIOnEventMode", 1)
Opt("SendCapslockMode", 0)
Opt("TrayMenuMode", 1 + 2)
$prefsitem = TrayCreateItem("Preferences")
TrayCreateItem("")
$aboutitem = TrayCreateItem(("About"))
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TrayItemSetOnEvent($prefsitem, "Preferences")
TrayItemSetOnEvent($aboutitem, "About")
TrayItemSetOnEvent($exititem, "Exit")

While 1
;~  Vasha programa
WEnd

Func Preferences()
     Msgbox(64,"Preferences:","OS:" & @OSVersion)

EndFunc  
Func About()
    Msgbox(64,"about:","AutoIt3-Tray-sample")

EndFunc  
Func Exit1()
    Exit
EndFunc   ;==>Exit1
А я так бы сделал

Последний раз редактировалось shyra1976, 20-05-2009 в 15:24.


Отправлено: 11:56, 20-05-2009 | #4