Inno Setup 实现循环背景音乐播放

Share

以前多个帖子都是播放 MIDI 的，所以今天写个播放 mp3 的，把下面的 mp3 文件改为 WMA 的文件也可以正常播放。

注意， midi ，wav 的文件不能适用于以下脚本，同时这两种音乐文件也不能循环播放，当然，如果是在实际的程序设计中，可以自己循环检测当前的播放状态，从而达到重复播放，但是却不可以在一个调用中实现重复播放。所以在安装程序中很难实现。

以下为脚本

1. ; -- Components.iss --
   
2. ; 安装程序背景音乐循环播放脚本演示
   
3. 
   
4. [Setup]
   
5. AppName=我的程序
   
6. AppVerName=我的程序 版本 1.5
   
7. DefaultDirName={pf}\我的程序
   
8. DefaultGroupName=我的程序
   
9. UninstallDisplayIcon={app}\MyProg.exe
   
10. 
    
11. [Types]
    
12. Name: "full"; Description: "完整安装"
    
13. Name: "compact"; Description: "简洁安装"
    
14. Name: "custom"; Description: "自定义安装"; Flags: iscustom
    
15. 
    
16. [Components]
    
17. Name: "program"; Description: "程序文件"; Types: full compact custom; Flags: fixed
    
18. Name: "help"; Description: "帮助文件"; Types: full
    
19. Name: "readme"; Description: "自述文件"; Types: full
    
20. Name: "readme\en"; Description: "简体中文"; Flags: exclusive
    
21. Name: "readme\de"; Description: "德文G"; Flags: exclusive
    
22. 
    
23. [Files]
    
24. Source: "MyProg.exe"; DestDir: "{app}"; Components: program
    
25. Source: "MyProg.hlp"; DestDir: "{app}"; Components: help
    
26. Source: "Readme.txt"; DestDir: "{app}"; Components: readme\en; Flags: isreadme
    
27. Source: "Readme-German.txt"; DestName: "Liesmich.txt"; DestDir: "{app}"; Components: readme\de; Flags: isreadme
    
28. Source: "sss.mp3"; DestDir: "{tmp}"; Flags: dontcopy
    
29. 
    
30. [Icons]
    
31. Name: "{group}\我的程序"; Filename: "{app}\MyProg.exe"
    
32. 
    
33. [code]
    
34. function mciSendString(lpstrCommand, lpstrReturnString: PChar; uReturnLength: UINT; hWndCallback: HWND): Integer;
    
35. external 'mciSendStringA@winmm.dll stdcall';
    
36. 
    
37. procedure InitializeWizard();
    
38. var
    
39.   s: string;
    
40. begin
    
41.     ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\sss.mp3')));
    
42.     mciSendString(ExpandConstant('OPEN {tmp}\sss.mp3 TYPE MPEGVIDEO ALIAS BGMUSIC'),s,255,0);
    
43.     mciSendString(ExpandConstant('PLAY BGMUSIC REPEAT'),s,255,0);
    
44. end;

复制代码