Inno Setup 不仅是开源免费的安装包制作工具,同时对脚本的扩展支持性也非常友好。在之前的文章中大眼仔给大家分享了通过使用 Inno Setup 可以增加背景音乐的效果,而有些支持的文件格式可能并不能满足多方需求,今天给大家分享的是通过 Inno Setup 播放 XM 格式音乐文件解决方案。
什么是 XM 格式音乐?
“.xm” 文件直译 XM=“extended module”,扩展模块,该文件是 Triton 出品的音乐抓轨软件 FastTracker 生成的音频格式文件,该格式基于原始音频 RAW 格式取样,支持多音轨混编采样、采样封装和基本音频编码;它支持多种音效及多声道混合编辑、支持16-bit采样、同时它也有一套专用于“滑音”效果的音频样式表。
ANSI 版 XM 音乐文件
1
2
3
4
5
6
7
8
9
10
11
12
13 [Code]
procedure PlaySongFile(FileName: String);
external 'PlaySongFile@files:ufMOD.dll stdcall setuponly';
procedure StopSong;
external 'StopSong@files:ufMOD.dll stdcall setuponly';
procedure InitializeWizard();
begin
ExtractTemporaryFile('music.xm');
PlaySongFile(ExpandConstant('{tmp}/music.xm'));
end;
Unicode 版 XM 音乐文件
1
2
3
4
5
6
7
8
9
10
11
12
13 [Code]
procedure PlaySongFile(FileName: ansiString);
external 'PlaySongFile@files:ufMOD.dll stdcall setuponly';
procedure StopSong;
external 'StopSong@files:ufMOD.dll stdcall setuponly';
procedure InitializeWizard();
begin
ExtractTemporaryFile('music.xm');
PlaySongFile(ExpandConstant('{tmp}/music.xm'));
end;
以上提供了两个版本的 Inno Setup 播放音乐代码,大家请根据自己的安装版本选择对应的代码使用即可,版本不对应会出现无声音播放效果。
资源:456.rar
解压密码:www.dayanzai.me
转载请保留出处,谢谢合作~
点击下载
点击下载(提取码:v52g)
点击下载(提取码:96is)
点击下载
原创文章,作者:ItWorker,如若转载,请注明出处:https://blog.ytso.com/214169.html