Inno setup 低音音频库开/关按钮
在本例中，如何创建打开/关闭音乐按钮：Inno setup 低音音频库开/关按钮,inno-setup,Inno Setup,在本例中，如何创建打开/关闭音乐按钮： 我想使用image.png。以下脚本制作了一个按钮，您可以根据流的当前状态播放或暂停流： [设置] AppName=低音音频项目 AppVersion=1.0 DefaultDirName={pf}\Bass音频项目 [档案] 资料来源：“Bass.dll”；标志：dontcopy 资料来源：“AudioFile.mp3”；标志：dontcopy [定制信息] SoundCtrlButtonCaptionSoundOn=音乐开启 SoundCtrlBut
我想使用image.png。以下脚本制作了一个按钮，您可以根据流的当前状态播放或暂停流：
[设置]
AppName=低音音频项目
AppVersion=1.0
DefaultDirName={pf}\Bass音频项目
[档案]
资料来源：“Bass.dll”；标志：dontcopy
资料来源：“AudioFile.mp3”；标志：dontcopy
[定制信息]
SoundCtrlButtonCaptionSoundOn=音乐开启
SoundCtrlButtonCaptionSoundOff=音乐关闭
[守则]
常数
低音采样环路=4；
低音\激活\停止=0；
低音_激活_播放=1；
低音_激活_暂停=2；
低音激活暂停=3；
BASS_UNICODE=8000000美元；
低音配置语音流=5；
常数
#ifndef UNICODE
EncodingFlag=0；
#否则
EncodingFlag=BASS_UNICODE；
#恩迪夫
类型
HSTREAM=DWORD；
函数BASS_Init（设备：LongInt；频率，标志：DWORD；
win:HWND；clsid:Cardinal）：BOOL；
外部低音_Init@files：bass.dll stdcall'；
函数BASS_StreamCreateFile（mem:BOOL；f:string；offset1:DWORD；
偏移量2:DWORD；长度1:DWORD；长度2:DWORD；标志：DWORD）：hs流；
外部低音_StreamCreateFile@files：bass.dll stdcall'；
功能启动：BOOL；
外部低音_Start@files：bass.dll stdcall'；
功能低音暂停：BOOL；
外部低音_Pause@files：bass.dll stdcall'；
功能BASS_ChannelPlay（手柄：DWORD；重启：BOOL）：BOOL；
外部低音_ChannelPlay@files：bass.dll stdcall'；
函数BASS_SetConfig（选项：DWORD；值：DWORD）：BOOL；
外部低音_SetConfig@files：bass.dll stdcall'；
功能BASS_ChannelIsActive（句柄：DWORD）：DWORD；
外部低音_ChannelIsActive@files：bass.dll stdcall'；
无低音功能：BOOL；
外部低音_Free@files：bass.dll stdcall'；
变量
声流：HSTREAM；
SoundCtrlButton:TNewButton；
程序SoundCtrlButtonClick（发送方：ToObject）；
开始
机箱低音_通道激活（声音流）
低音_激活_播放：
开始
如果你停下来
SoundCtrlButton.标题：=
ExpandConstant（{cm:SoundCtrlButtonCaptionSoundOn}'）；
结束；
低音\激活\暂停：
开始
如果你开始的话
SoundCtrlButton.标题：=
ExpandConstant（“{cm:SoundCtrlButtonCaptionSoundOff}”）；
结束；
结束；
结束；
程序初始化；
开始
提取临时文件（'AudioFile.mp3'）；
如果BASS_Init（-144100,0,0,0）那么
开始
SoundStream:=BASS_StreamCreateFile（假，
ExpandConstant（{tmp}\AudioFile.mp3'），0,0,0,0，
编码标志或低音（采样循环）；
BASS_SetConfig（BASS_CONFIG_GVOL_STREAM，2500）；
低音/通道播放（声音流，假）；
SoundCtrlButton:=TNewButton.Create（WizardForm）；
SoundCtrlButton.Parent:=WizardForm；
SoundCtrlButton.Left:=8；
SoundCtrlButton.Top:=WizardForm.ClientHeight-
SoundCtrlButton.高度-8；
SoundCtrlButton.宽度：=155；
SoundCtrlButton.标题：=
ExpandConstant（“{cm:SoundCtrlButtonCaptionSoundOff}”）；
SoundCtrlButton.OnClick:=@SoundCtrlButtonClick；
结束；
结束；
程序去初始化设置；
开始
自由低音；
结束；