AIMP Forum

AIMP for Windows => Плагины / Plugins => Дополнения / Addons => Плагины-дополнения / Addons => Тема начата: Flector от Июля 28, 2009, 05:20:42

Название: TrayPult - управление AIMP2 из трея
Отправлено: Flector от Июля 28, 2009, 05:20:42
не смог избавится от winamp'ской привычки управлять плеером именно из трея.
Tray Control всем хорош кроме того, что он существует только при свернутом окне AIMP.
постоянные открытия\сворачивания основного окна откровенно утомляют.
впрочем, повторюсь - может это просто привычка.

Tray Pult v0.01

полное отображение
(http://i009.radikal.ru/0907/e4/92b97e5b991f.gif)

предпочитаю укороченное аля
(http://i010.radikal.ru/0907/aa/5f373317ac45.gif)

с дельфями не дружу, отсюда главный недостаток утилитки - она не плагин.
не вызывается автоматом и не закрывается при выходе из AIMP.

кнопка Play также является и паузой - 1-ый клик пауза - 2-ой клик играть.

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

для автоматического запуска плеера вместе с утилиткой управления можно использовать
батник или скрипт. я использую что-то вроде:

start.vbs
On Error Resume Next
Dim WS
Set WS = WScript.CreateObject("WScript.Shell")
WS.run chr(34)+"C:\Program Files\AIMP2\aimp2.exe"+chr(34)+" -k start"
WScript.Sleep 1500 'это если надо сделать паузу (в миллисекундах)
WS.run chr(34)+"C:\Program Files\AIMP2\TrayPult\TrayPult.exe"+chr(34)+" --standalone"
Set WS=nothing

утилитка установки не требует - просто распакуйте ее куда хотите и там ее запускайте.
опции минимальны - выбор кнопок для показа в трее и выбор скинов иконок (12 встроено)
хотите свои иконки - замените их в любой из папок. win xp иконки не поддерживаются (простой
конверт иконки в ifranview делает их вполне используемыми).

исходники на VB6 также прилагаются. тестировалось с AIMP 2.51 и WinXP SP3, работоспособность на
других версиях и других виндах не проверял.
Название: Re: TrayPult - управление AIMP2 из трея
Отправлено: zezik от Марта 02, 2010, 14:01:17
Вот вариант start.vbs при котором закрытие aimp приведет к закрытию трей пульта:

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
RetCode = WshShell.Run("""C:\Program Files\AIMP2\TrayPult\TrayPult.exe"" """,5,false)
RetCode = WshShell.Run("""C:\Program Files\AIMP2\AIMP2.exe"" """,5,true)

For Each Process in GetObject("winmgmts:"). _
  ExecQuery ("select * from Win32_Process where name='TrayPult.exe'")
  Process.terminate(0)
Next

Еще можно, дабы не заморачиваться с батниками, создать ярлык на start.vbs и в свойствах ярлыка в строке объект написать
 C:\WINDOWS\system32\wscript.exe "C:\Program Files\AIMP2\start.vbs", ну и понятное дело закинуть его куда удобно.
Название: Re: TrayPult - управление AIMP2 из трея
Отправлено: Tron от Марта 25, 2011, 23:15:33
Работает для АИМП3[851].
А не могли бы Вы выложить "бат" файл для запуска вместе с программой?
Но на много лучше когда плеер запускался бы по клику на одной из кнопок управления (не только плей)..
Хороший пульток. Подходит луше винамповского.
Спасибо.

Прикрепил 2 набора кнопок (рипнул из gen_tray.dll).
Правда прикрутить не получилось.. Редактировать надо.
Правда мне не понятно, что такое ifranview. Но иконки нормальные такие.