Inno Setup 如何在安装时播放音乐循环播放

Share

1. [Files]
   
2. Source: "C:\music.mp3"; Flags: dontcopy
   
3. 
   
4. [Code]
   
5. function mciSendString(lpstrCommand, lpstrReturnString: AnsiString; uReturnLength, hWndCallback: Integer): Integer;
   
6. external 'mciSendStringA@winmm.dll stdcall';
   
7. 
   
8. //备注：上面的 mciSendString 函数也可以修改成这样（使用 Unicode 字符串）：
   
9. //function mciSendString(lpstrCommand, lpstrReturnString: String; uReturnLength, hWndCallback: Integer): Integer;
   
10. //external 'mciSendStringW@winmm.dll stdcall';
    
11. 
    
12. procedure InitializeWizard();
    
13. var
    
14.   s: string;
    
15. begin
    
16.     //ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\music.mp3')));
    
17.     ExtractTemporaryFile('music.mp3');
    
18.     if FileExists(ExpandConstant('{tmp}\music.mp3')) then begin
    
19.        mciSendString(ExpandConstant('OPEN {tmp}\music.mp3 TYPE MPEGVIDEO ALIAS BGMUSIC'),s,255,0);
    
20.        mciSendString(ExpandConstant('PLAY BGMUSIC REPEAT'),s,255,0);
    
21.     end;
    
22. end;

复制代码