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

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

什么是 XM 格式音乐？

“.xm” 文件直译 XM=“extended module”，扩展模块，该文件是 Triton 出品的音乐抓轨软件 FastTracker 生成的音频格式文件，该格式基于原始音频 RAW 格式取样，支持多音轨混编采样、采样封装和基本音频编码；它支持多种音效及多声道混合编辑、支持16-bit采样、同时它也有一套专用于“滑音”效果的音频样式表。

ANSI 版 XM 音乐文件

[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 音乐文件

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