Данный сайт уже очень давно не обновляется :( и скорее музей, чем актуальный ресурс.
Если вас интересуют новые версии моих программ, то добро пажаловать на новый сайт - citsk.ru и на новый форум.

На главную

Главная

MuzCat

Мои проги

Гостевая книга

Написать письмо



WinWin
Загрузить программу
ZIP 22 Кб


Итак, зачем нужна моя новая программа и что это вообще такое?
Разберёмся по порядку.
WinWin позволяет управлять Winamp при помощи ярлыков, например из панели быстрого запуска или из панели инструментов Total Commander (бывший Windows Commander). Как всё это работает.

WinWin на панели быстрого запуска
WinWin на панели быстрого запуска

WinWin паразитирующий на Total Commander
WinWin паразитирующий на Total Commander

Всё что нужно сделать, так это создать ярлык для WinWin и прописать параметром командной строки какую либо команду.
Например для виндового ярлыка:

Пример



Или в Total Commander:

Пример


Список команд:
  • Next - следующий трек
  • Prev - предыдущий трек
  • Pause - пауза
Загрузить программу
ZIP 22 Кб




И для самых стойких исходник


program WinWin;
   
   uses
    SysUtils,
    Windows,
    Messages;
   
   Const
    W_Play=40045;// воспроизведение
    W_PrevTrack=40044;// песня назад
    W_NextTrack=40048;// песня вперёд
    W_Pause=40046;// пауза
   Var
    x:string;
    Winamp:THandle;
   {$R Ico.res}
   
   Procedure DayWinam;
    Begin
    Winamp:=FindWindow('Winamp v1.x', nil);
    if Winamp=0 then
   End;
   
   Procedure WinampCommand(x:integer);
    Begin
    DayWinam;
    SendMessage(Winamp,WM_COMMAND,x,1);
   End;
   
   begin
    x:=UpperCase(ParamStr(1));
    if x='NEXT' then WinampCommand(W_NextTrack);
    if x='PREV' then WinampCommand(W_PrevTrack);
    if x='PAUSE' then WinampCommand(W_Pause);
   end.




Главная  |  MuzCat  |  Мои программы  |  Гостевая книга

Hosted by uCoz