Inno Setup 播放 XM 格式音乐文件解决方案

摘要：Inno Setup 不仅是开源免费的安装包制作工具，同时对脚本的扩展支持性也非常友好。在之前的文章中大眼仔给大家分享了通过使用 Inno Setup 可以增加背景音乐的效果，而有些支持的文件格式可能并不能满足多方需求，今天给大家分享的是通过 Inno Setup 播放 XM 格式音乐文件解决方案。 什么是 XM 格式…

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 播放音乐代码，大家请根据自己的安装版本选择对应的代码使用即可，版本不对应会出现无声音播放效果。

解压密码：www.dayanzai.me