Inno调用dll --- 实现背景播放音乐

　　Inno 播放音乐可以调用系统api函数mciSendString来实现，而mciSendString函数存在C:WindowsSystem32winmm.dll中，因此最终只要成功从该dll文件中导出mciSendString函数，并在安装界面显示的同时正确的调用该函数，即可实现背景播放音乐的效果。

　　1、添加背景音乐资源

　　在[Files]段添加下面语句:

　　Source: "bg.mp3"; flags: dontcopy ;

将音乐文件改名为bg.mp3，放到工程文件同目录下。dontcopy 标志表示安装时此文件不拷贝，默认存在于{tmp}目录下，在软件安装完成后会被删除。

　　2、从winmm.dll导出mciSendString函数

　　在[code]段添加下面语句:

　　function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;

　　external 'mciSendStringA@winmm.dll stdcall';

第一句可以理解为函数定义，第二句是该函数的补充，表示定义的函数是外部函数，原型是从winmm.dll中导出的mciSendStringA函数，采用stdcall函数调用约定。此外，如果Inno编译器版本是unicode版本，则导出的函数对应的原型应该是mciSendStringW，第二句则应修改为：external 'mciSendStringW@winmm.dll stdcall';

　　3、使用导出函数播放背景音乐

　　背景音乐可以在安装界面初始化的时候开启播放，因此可以选择在[code]段中实现回调函数InitializeSetup来调用mciSendString函数过程。以下是调用过程：

　　mciSendString(ExpandConstant('open {tmp}g.mp3 alias bg'),0,0,0);

　　mciSendString(ExpandConstant('play bg repeat'),0,0,0);

　　4、完整代码

; 脚本由 Inno Setup 脚本向导 生成！
; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！

#define MyAppName "我的程序"
#define MyAppVersion "1.5"
#define MyAppPublisher "我的公司"
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; 注: AppId的值为单独标识该应用程序。
; 不要为其他安装程序使用相同的AppId值。
; (生成新的GUID，点击 工具|在IDE中生成GUID。)
AppId={{230CCD19-DFE0-4D57-A14D-A3AE3AED90EE}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"

[Files]
;Source: "C:Program Files (x86)Inno Setup 5ExamplesMyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "bg.mp3"; flags: dontcopy ;
; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”

[code]
function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
external 'mciSendStringA@winmm.dll stdcall';//unicode版本用 mciSendStringW ansi版本用mciSendStringA

function InitializeSetup (): Boolean;
begin
    ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}g.mp3')));　　//提前抽取该文件
    mciSendString(ExpandConstant('open {tmp}g.mp3 alias bg'),0,0,0);　　//打开媒体文件，alias别名为bg
    mciSendString(ExpandConstant('play bg repeat'),0,0,0);　　//重复播放（别）名为bg.mp3的媒体文件
    Result := True;　　//返回true才会继续安装
end;