WinWin
Загрузить программу
ZIP 22 Кб
Итак, зачем нужна моя новая программа и что это вообще такое?
Разберёмся по порядку.
WinWin позволяет управлять Winamp при помощи ярлыков, например из панели быстрого запуска или из панели инструментов Total Commander (бывший Windows Commander). Как всё это работает.
WinWin на панели быстрого запуска
WinWin паразитирующий на Total Commander
Например для виндового ярлыка:
Или в 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.
