inno设置中播放多声音的问题

如何解决inno设置中播放多声音的问题

我使用 bass 在我的安装程序

中播放 2 声音

1. 背景声音（在除许可证页面以外的所有安装程序页面中播放）
2. 声音仅当用户进入许可页面时播放（背景声音暂停和新声音播放）

我会使用一些帮助来获取许可声音，以便对此Question

起作用

一切正常（背景音乐播放直到用户进入许可页面，在许可页面中其他声音开始播放，并且当用户再次进入下一页背景声音播放时），除了一个问题之外，如果用户在许可间页面之前暂停背景音乐这次用户以某种方式再次播放许可证页面背景声音时，更好的说是低音lib跳过播放许可证页面声音

这是我在inno设置中低音的代码

const
  BASS_SAMPLE_LOOP = 4;
  BASS_ACTIVE_STOPPED = 0;
  BASS_ACTIVE_PLAYING = 1;
  BASS_ACTIVE_STALLED = 2;
  BASS_ACTIVE_PAUSED  = 3;
  BASS_UNICODE = $80000000;
  BASS_CONfig_GVOL_STREAM = {#MusicVolume};
  EncodingFlag = BASS_UNICODE;

var
  SoundStream: HSTREAM;
  LicenseSoundStream: HSTREAM;

//

function BASS_Init(device: LongInt; freq,flags: DWORD; win: HWND; clsid: Cardinal): BOOL;
    external 'BASS_Init@files:bass.dll stdcall';
  function BASS_StreamCreateFile(mem: BOOL; f: string; offset1: DWORD; offset2: DWORD; length1: DWORD; length2: DWORD; flags: DWORD): HSTREAM;
    external 'BASS_StreamCreateFile@files:bass.dll stdcall';
  function BASS_Start: BOOL;
    external 'BASS_Start@files:bass.dll stdcall';
  function BASS_Pause: BOOL;
    external 'BASS_Pause@files:bass.dll stdcall';
  function BASS_ChannelPlay(handle: DWORD; restart: BOOL): BOOL;
    external 'BASS_ChannelPlay@files:bass.dll stdcall';
  function BASS_ChannelPause(handle: DWORD): Boolean;
    external 'BASS_ChannelPause@files:bass.dll stdcall';
  function BASS_SetConfig(option: DWORD; value: DWORD ): BOOL;
    external 'BASS_SetConfig@files:bass.dll stdcall';
  function BASS_ChannelIsActive(handle: DWORD): DWORD;
    external 'BASS_ChannelIsActive@files:bass.dll stdcall';
  function BASS_Free: BOOL;
    external 'BASS_Free@files:bass.dll stdcall';

//

procedure MusicButtonClick(Sender: TObject);
begin
  case BASS_ChannelIsActive(SoundStream) of
    BASS_ACTIVE_PLAYING:
    begin
      if BASS_Pause then
        MusicButton.Caption := ExpandConstant('{cm:MusicButtonCaptionSoundOn}');
    end;
    BASS_ACTIVE_PAUSED:
    begin
      if BASS_Start then
        MusicButton.Caption := ExpandConstant('{cm:MusicButtonCaptionSoundOff}');
    end;
  end;
end;

//

if BASS_Init(-1,44100,0) then
    begin
      BASS_SetConfig(BASS_CONfig_GVOL_STREAM,2500);
      ExtractTemporaryFile('{#MusicFile}');
      ExtractTemporaryFile('license.mp3');
      SoundStream :=
        BASS_StreamCreateFile(
          False,ExpandConstant('{tmp}\{#MusicFile}'),BASS_UNICODE or BASS_SAMPLE_LOOP);
      LicenseSoundStream :=
        BASS_StreamCreateFile(
          False,ExpandConstant('{tmp}\license.mp3'),BASS_UNICODE);
      BASS_ChannelPlay(SoundStream,False);
    end;

{ if page changed to license page }

begin
    if CurPageID = wpLicense then
    begin
      AboutButton.Hide;
      WizardForm.DirEdit.Hide;
      WizardForm.DirbrowseButton.Hide;
      WizardForm.GroupEdit.Hide;
      WizardForm.GroupbrowseButton.Hide;
      WizardForm.PageNameLabel.Hide;
      WizardForm.PageDescriptionLabel.Hide;
      WizardForm.UserInfoNameLabel.Hide;
      WizardForm.UserInfoNameEdit.Hide;
      WizardForm.BackButton.Visible := False;
      MusicButton.Visible := False;
      if LicenseSoundStream <> 0 then
      begin
        if BASS_ChannelIsActive(SoundStream) then BASS_ChannelPause(SoundStream);
        BASS_ChannelPlay(LicenseSoundStream,True);
        BASS_Start;
      end;
    end
      else
    begin
      { On other pages,restore the standard music }
      if SoundStream <> 0 then
      begin
        BASS_ChannelPause(LicenseSoundStream);
        BASS_ChannelPlay(SoundStream,False);
        MusicButton.Visible := true;
      end;
    end;
  end;

我该如何解决？ 谢谢