Программирование на Delphi и не только

  mod1.sRate := 0;
  mod1.nCh := 0;
  mod1.latencyMs := 25;
  mod1.delayMs := 100;
  mod1.spectrumNch := 2;
  mod1.waveformNch := 0;
  mod1.Config := @config;
  mod1.Init := @init;
  mod1.Render := @render;
  mod1.Quit := @quit;
  //создаём форму с ProgressBar'ами
  Application.CreateForm(TForm1, Form1);
end.

Полученный плагин нужно скопировать в папку Winamp\Plugins. После этого в окне свойств Winamp'a будет доступен новый плагин (рис.2).

Этот пример призван продемонстрировать, как использовать всю мощь VCL в Delphi при создании плагинов для Winamp'a. Но размер такого плагина будет в районе 300-400 кб (зависит от версии Delphi). В связи с этим, лучше отказаться от использования VCL, а писать плагины на WinApi. Далее приведён код плагина, который заставляет мигать лампочки на клавиатуре (Num Lock, Caps Lock и Scroll Lock) в такт музыке.

library KeybLight;
uses Windows;
const
  VIS_HDRVER = $101;
  szAppName = 'KeybLight';
  descr = 'Лампочки на клавиатуре (delphiblog.ru)';
  //описание плагина
  mod1_descr = 'Лампочки на клавиатуре';
type
  //указатель на структуру плагина
  PwinampVisModule = ^winampVisModule;
  //структура плагина
  winampVisModule = packed record
    description: PChar;
    hwndParent: HWND;
    hDllInstance: HWND;
    sRate: Integer;
    nCh: Integer;
    latencyMs: Integer;
    delayMs: Integer;
    spectrumNch: Integer;
    waveformNch: Integer;
    spectrumData: array[0..1, 0..575] of Byte;
    waveformData: array[0..1, 0..575] of Byte;
    Config: procedure( thismod: PwinampVisModule ); cdecl;
    Init: function( thismod: PwinampVisModule ): Integer; cdecl;
    Render: function( thismod: PwinampVisModule ): Integer; cdecl;
    Quit: procedure( thismod: PwinampVisModule ); cdecl;
    userData: pointer;
  end;
  //заголовок плагина
  PwinampVisHeader = ^winampVisHeader;
  winampVisHeader = packed record
    version: Integer;
    description: PChar;
    getModule: function( which: integer ): PwinampVisModule; cdecl;
  end;
var
  hdr: winampVisHeader;
  mod1: winampVisModule;

//процедура для установки состояния клавиш Caps, Num, Scroll Lock