[Dodakaedr]

saneksanek, а файлы скачали которые прилагаются в посте?

читать дальше »

Код:

#include "botva2.iss"
#include "BASS_Module.iss"

[Setup]
AppName=BassExample
AppVerName=BassExample
DefaultDirName={pf}\BassExample

[Files]
Source: BASS.dll;   Flags: dontcopy
Source: CallbackCtrl.dll;  Flags: dontcopy
Source: botva2.dll;   Flags: dontcopy
Source: BASS_Files\*;   Flags: dontcopy
//Source: music.mp3;  DestDir: {tmp}; Flags: dontcopy

[ code]
procedure InitializeWizard();
begin
  ExtractTemporaryFile('BASS.dll');
  ExtractTemporaryFile('CallbackCtrl.dll');
  ExtractTemporaryFile('botva2.dll');
  ExtractTemporaryFile('volmax.png');
  ExtractTemporaryFile('volmin.png');
  ExtractTemporaryFile('volpb.png');
  ExtractTemporaryFile('voldote.png');
  //ExtractTemporaryFile('Music.mp3');

  //BASS_Init('{tmp}\Music.mp3')  //Запускаем музыку
  //Можно добавить в инсталл несколько песен
  //BASS_Init(ExpandConstant('{tmp}\*'))        //Поиск по маске
   
  //Создаем регулятор громкости
  BASS_CreateMediaPlayer(WizardForm, '{tmp}\volmax.png', '{tmp}\volmin.png', '{tmp}\volpb.png', '{tmp}\voldote.png', 20, 325)
end;

procedure DeinitializeSetup();
begin
  //BASS_DeInit; //Освобождаем процесс
  gdipShutdown
end;