仅在Inno Setup中的特定页面中播放声音 [英] Play a sound only in a specific page in Inno Setup

问题描述

我正在使用Inno Setup为我的应用程序创建安装程序.我使用BASS音频库在安装程序的后台播放音乐.

I'm creating a installer for my application with Inno Setup. I use BASS audio library to play music in background of the installer.

这是我播放声音的代码.

Here is my code for playing the sound.

[Code]
const
  DI_NORMAL = 3;
  FR_PRIVATE = $10;  {added to compact Mode}
  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;
  #if CheckCRC == "1"
  PM_REMOVE = 1;
  WM_QUIT   = 18;
  #endif

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_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;

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;

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

我只想在安装程序的页面(在此情况下为许可页面)中播放声音我希望当用户进入许可页面，正常音乐停止和其他声音开始播放时，请在完成此声音音乐后开始再次播放还有是否可以禁用 next 按钮，直到声音结束?

i want to play a sound only in a page of my installer (in this case licence page) i want when the user come in license page, normal music stop and other sound start play,after finish this sound music start play again and also there is anyway to disable next button until sound end?

谢谢

在Martin Prikryl的帮助下，我对代码进行了一些编辑.我的代码现在是这样的(再次，由于行很多，我无法将完整的代码发布在页面上)

With Martin Prikryl's help, I've edited my code a little. My code now like this (again I can't put full code on post because it has many lines)

procedure InitializeWizard();
var
  SoundStream: HSTREAM;
  LicenseSoundStream: HSTREAM;
  //-some other code-//
  IniFile := ExpandConstant('{tmp}\Settings.ini');
  #if Music == "1"
  if BASS_Init(-1, 44100, 0, 0, 0) then
    begin
      BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, 2500);
      ExtractTemporaryFile('{#MusicFile}');
      ExtractTemporaryFile('lic.mp3');
      SoundStream :=
        BASS_StreamCreateFile(
          False, ExpandConstant('{tmp}\{#MusicFile}'), 0, 0, 0, 0,
          BASS_UNICODE or BASS_SAMPLE_LOOP);
      LicenseSoundStream :=
        BASS_StreamCreateFile(
      False, ExpandConstant('{tmp}\lic.mp3'), 0, 0, 0, 0, BASS_UNICODE);
      BASS_ChannelPlay(SoundStream, False);
    end;
  #endif

procedure CurPageChanged(CurPageID: integer);
begin
  //-some other code-//
  #if UseLicense == "1"
  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;
    if Assigned(LicenseSoundStream) then
    begin
      BASS_ChannelPlay(LicenseSoundStream, True);
      BASS_Start;
    end;
  end
    else
  begin
    { On other pages, restore the standard music }
    if Assigned(SoundStream) then
    begin
      BASS_ChannelPlay(SoundStream, False);
    end;
  end;
  #endif
end;

现在，如果分配了(LicenseSoundStream)，则会在中给我编译器错误，错误为第4416行:列17:未知标识符"LicenseSoundStream"

its now give me compiler error in if Assigned(LicenseSoundStream), error is Line 4416: Column 17: Unknown identifier 'LicenseSoundStream'

-编辑2-

您知道我在安装程序中有2种声音

as you know i have 2 sound in installer

1. 是背景音乐(除了许可证页面以外，它在整个安装程序页面中播放)
2. 是许可页面声音(当用户许可页面之间的背景声音暂停和其他声音播放，而当退出其他声音时，又开始播放)

im添加按钮可使用此代码禁用和启用背景音

im add button to disable and enable background sound with this codes

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;

但是我的问题是，如果用户在许可间页面之前暂停背景声音，则许可页面内的背景声音会再次播放(而不是其他声音)

but my problem is if user pause background sound before inter license page, inside license page background sound play again (instead of other sound)

推荐答案

假设您的 ExtractTemporaryFile 和 BASS_Init 调用位于 InitializeSetup 中，如下所示:如何在Inno Setup中设置停止和暂停/继续/播放音乐按钮

Assuming your ExtractTemporaryFile and BASS_Init calls are in InitializeSetup like here: How to make Stop and Pause/Resume/Play music buttons in Inno Setup

更新代码以加载两个音乐文件:

Update the code to load both music files:

var
  SoundStream: HSTREAM;
  LicenseSoundStream: HSTREAM;

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

然后在 CurPageChanged 事件函数，在许可证页面上，启动许可证"音乐:

Then in CurPageChanged event function on the license page, start the "license" music:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpLicense then
  begin
    if LicenseSoundStream <> 0 then
    begin
      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);
    end;
  end;
end;

未经测试-可能需要一些调整.

这篇关于仅在Inno Setup中的特定页面中播放声音的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！