[alexteam]

мда...
5 минут работы.. блин...
плагин

Оффтоп

library WinAmp;

{$define RELEASE} // для совместимости с релизом пакетхака, при дебуге можно закоментировать

uses
  FastMM4 in '..\fastmm\FastMM4.pas',
  FastMM4Messages in '..\fastmm\FastMM4Messages.pas',
  windows,
  messages,
  sysutils,
  usharedstructs in '..\units\usharedstructs.pas';

var                                {version} {revision}
  min_ver_a: array[0..3] of Byte = ( 3,5,12,      120   );
  min_ver: Integer absolute min_ver_a; // минимальная поддерживаемая версия программы
  ps: TPluginStruct; // структура передаваемая в плагин

function GetPluginInfo(const ver: Integer): PChar; stdcall;
begin
    Result:='Плагин управления Winamp к программе l2ph'+sLineBreak+
            'Для версий 3.5.12.120+';
end;


function SetStruct(const struct: PPluginStruct): Boolean; stdcall;
begin
  ps := struct^;
  Result:=True;
end;

Procedure WinampCommand(Command:Integer);
var WinampHWND:cardinal;
begin
WinampHWND := findwindow('Winamp v1.x',nil);
if (WinampHWND <> 0) then
  SendMessage(WinampHWND, WM_COMMAND, Command, 0);
end;


// Вызывается при вызове скриптовой функции обьявленной в RefreshPrecompile
function OnCallMethod(const MethodName: String; // имя функции в верхнем регистре
                      var Params, // параметры функции
                      FuncResult: Variant // результат функции
         ): Boolean; stdcall; // если вернёт True то дальнейшая
                              // обработка функции прекратиться
begin
  Result:=False; // передаём обработку функции программе
  if lowercase(MethodName) = 'winampcommand' then 
    begin
      WinampCommand(integer(Params[0]));
      Result:=True; // запрещаем дальнейшую обработку функции в программе
    end;
end;


// Вызывается после иницализации плагина, позволяет добавлять свои функции в редактор / скриптовый движек
Procedure OnRefreshPrecompile; stdcall;
begin
  ps.UserFuncs.Add('procedure WinampCommand(Command:Integer)');
end;



// экспортируем используемые программой функции
exports
  GetPluginInfo,
  SetStruct,
  OnCallMethod,
  OnRefreshPrecompile;

begin
end.

скомпилированный выложил здесь

закинуть в папку plugins и активировать его в пакетхаке.
после активизации плагина в скриптовом редакторе будет доступна процедура WinampCommand(Command:Integer);
где Command - команды отсюда

работоспособность проверена на aimp.