[beve]

Смотри в справке описание, и пример к функции: TrayCreateItem.

А вот, если хочется это сделать красивее:

Код:

#NoTrayIcon 
#include <ModernMenuRaw.au3> 

$hTrayIcon = _TrayIconCreate("My Tray App") 

_TrayIconSetClick(-1, 9) 
_TrayIconSetState() 
$nTrayMenu = _TrayCreateContextMenu() 

$Calc_TrayItem = _TrayCreateItem("Калькулятор") 
_TrayItemSetIcon(-1, "calc.exe", 0) 
$Word_TrayItem = _TrayCreateItem("MS Word") 
_TrayItemSetIcon(-1, @ProgramFilesDir &"\Microsoft Office\Office12\WINWORD.EXE", 0) 

$Notepad_TrayItem = _TrayCreateItem("Блокнот") 
_TrayItemSetIcon(-1, "notepad.exe", 0) 

$CmdLine_TrayItem = _TrayCreateItem("Коммандная строка") 
_TrayItemSetIcon(-1, "cmd.exe", 0) 

$MSPaint_TrayItem = _TrayCreateItem("MSPaint") 
_TrayItemSetIcon(-1, "mspaint.exe", 0) 

_TrayCreateItem("") 
_TrayItemSetIcon(-1, "", 0) 

$Exit_TrayItem = _TrayCreateItem("Выход") 
_TrayItemSetIcon(-1, "shell32.dll", 28) 

_SetTrayIconBkColor(0xC46200) 
_SetTraySelectBkColor(0x087272) 
_SetTraySelectTextColor(0xFFFFFF) 


While 1 
Switch GUIGetMsg() 
Case $Calc_TrayItem 
Run("Calc.exe") 
Case $Notepad_TrayItem 
Run("Notepad.exe") 
Case $CmdLine_TrayItem 
Run("Cmd.exe") 
Case $MSPaint_TrayItem 
Run("MSPaint.exe") 

Case $Word_TrayItem
Run (@ProgramFilesDir &"\Microsoft Office\Office12\WINWORD.EXE")
Case $Exit_TrayItem 
_TrayIconDelete($hTrayIcon) 
Exit 
EndSwitch 
WEnd

Для работы скрипта нужна библиотека ModernMenuRaw.au3

[evg64]

А вот, если хочется это сделать красивее »

Гыы, прикольно!
А что делает _TrayIconSetClick? Я не понял из кода.

[beve]

А что делает _TrayIconSetClick? Я не понял из кода. »

Смотри в справке описание функции: TraySetClick . (Сдесь используется в _TrayIconSetClick(-1, 9) - 9 что означает 1 = Pressing primary mouse button + 8 = Pressing secondary mouse button, иными словами при клике на значке в сист.трее левой или правой клавишей мышки, появится трей-меню. (А функция _TrayIconSetClick из библиотеки ModernMenuRaw.au3)

[kaster]

Код:

TraySetIcon('iconpath')

[Anarasius]

Подскажите, как вставить сюда этот скрипт

#RequireAdmin

;Добавляем программу в автозапуск
If RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", @ScriptName) = "" Then _
RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", @ScriptName, "REG_SZ", '"' & @ScriptFullPath & '"')

;Указываем программу на запуск
$sApp = "notepad.exe"

;Указываем число запуска
$nDay = 16

While 1
If @MDAY = $nDay Then
Run($sApp)

While @MDAY = $nDay
Sleep(60000)
WEnd
EndIf

Sleep(1000)
WEnd

Уже все перепробовал но у меня не раб кнопка Выход, спасибо!

[Creat0R]

как вставить сюда этот скрипт »

Куда сюда? И код нужно заключать в соот-вующие теги.

Вопрос был в том, как поменять значок скрипта в трее, вам дали короткий и верный ответ - используйте TraySetIcon.