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

  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;

//далее следуют процедуры, назначение которых описано выше
function getModule(which: integer): PwinampVisModule;cdecl;
begin
  case which of
    0: result := @mod1;
    else
      result := nil
  end;
end;

function winampVisGetHeader: PwinampVisHeader; cdecl;
begin
  result := @hdr;
end;

procedure config(this_mod: PwinampVisModule); cdecl;
begin
  MessageBox(mod1.hwndParent, 'Настроек нет', 'Окно настроек', mb_OK);
end;

function init(this_mod: PwinampVisModule): integer; cdecl;
begin
  //показываем форму с ProgressBar'ами
  Form1.Show;
  result := 0;
end;

function render(this_mod: PwinampVisModule): integer; cdecl;
begin
  //при поступлении новых данных от Winamp'a устанавливаем
  //высоту столбиков ProgressBar'ов в соответствии со значением
  //музыкальных данных шести колонок
  Form1.ProgressBar1.Position := this_mod.spectrumData[0,1];
  Form1.ProgressBar2.Position := this_mod.spectrumData[0,2];
  Form1.ProgressBar3.Position := this_mod.spectrumData[0,3];
  Form1.ProgressBar4.Position := this_mod.spectrumData[0,4];
  Form1.ProgressBar5.Position := this_mod.spectrumData[0,5];
  Form1.ProgressBar6.Position := this_mod.spectrumData[0,6];
  result := 0;
end; procedure quit(this_mod: PwinampVisModule); cdecl;
begin
end;

//экспортируемая функция
exports
  winampVisGetHeader;begin
  //заполняем начальные параметры плагина
  hdr.version := VIS_HDRVER;
  hdr.description := PChar(descr);
  hdr.getModule := @getModule;
  mod1.description := PChar(mod1_descr);
  mod1.hwndParent := 0;
  mod1.hDllInstance := 0;