【Inno Setup】安装时播放音乐

[Setup]
Encryption=no
[Files]
;拷贝到临时文件夹
Source: "C:\Documents and Settings\Administrator\桌面\smqh\mymusic.mp3"; DestDir: "{tmp}"; DestName:music.mp3; Flags: dontcopy
[Code]
Function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
external 'mciSendStringA@winmm.dll stdcall';

procedure InitializeWizard();
var
   BGMusicFile, SplashFile: string;
   SplashForm: TForm;
   SplashFileName: String;
   I: Integer; 
begin

    ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\music.mp3')));
    SplashForm := TForm.create(nil);
    with SplashForm do
    begin
    mciSendString(ExpandConstant('play {tmp}\music.mp3'),0,0,0);
    Close;
    Free;
   end;
end;

其中可以设置

[Setup]
Encryption=no

或

[Files]
Source: "C:\Documents and Settings\Administrator\桌面\smqh\mymusic.mp3"; DestDir: "{tmp}"; DestName:music.mp3; Flags: dontcopy noEncryption