Grey 收集整理 一
关于Inno Setup 如何在安装时播放音乐 方法(1): 在脚本编译里的[Code]与[Files]段处添加以下代码: [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; [Files] Source: "C:\music
mp3"; Flags: dontcopy 或者 Source: "C:\mymusic
mp3"; DestDir: "{tmp}"; Flags: dontcopy 代码说明:[Code]中蓝色代码{tmp}与\music
mp3 的意思是播放inno setup 安装时创建的临时文