Код:
procedure InitializeWizard();
begin
ExtractTemporaryFile('bass.dll');
ExtractTemporaryFile('CallbackCtrl.dll');
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('volmax.png');
ExtractTemporaryFile('volmin.png');
ExtractTemporaryFile('voldote.png')
ExtractTemporaryFile('volpb.png')
ExtractTemporaryFile('MusicButton.png');
ExtractTemporaryFile('music.mp3');
BASS_Init('{tmp}\music.mp3')
BASS_CreateMediaPlayer(WizardForm, '{tmp}\volmax.png', '{tmp}\volmin.png', '{tmp}\volpb.png', '{tmp}\voldote.png', 70, 325)
begin
RedesignWizardForm;
end
end;
procedure DeinitializeSetup();
begin
Bass_DeInit;
gdipShutdown
end;