播放音乐前弹出选择对话框

Share

执行安装程序，首先弹出一个对话框，内容为“请问是否需要播放音乐”，有“确定”和“取消”两个选项，点击“确定”，播放音乐，出现欢迎页面，执行后续安装。
反之，不播放音乐，出现欢迎页面，执行后续安装。

1. 
   
2. [Files]
   
3. Source: music.mp3; DestDir: "{tmp}"; Flags: dontcopy
   
4. [Code]
   
5. Function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
   
6. external 'mciSendStringA@winmm.dll stdcall';
   
7. procedure InitializeWizard();
   
8. var
   
9.    BGMusicFile, SplashFile: string;
   
10. SplashForm: TForm;
    
11. SplashFileName: String;
    
12. I: Integer;
    
13. if MsgBox('你想要播放音乐吗？', mbConfirmation, MB_YESNO) = IDYES then
    
14.   begin
    
15. ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\music.mp3')));
    
16. SplashForm := TForm.create(nil);
    
17. with SplashForm do
    
18.    begin
    
19. mciSendString(ExpandConstant('play {tmp}\music.mp3'),0,0,0);
    
20. Close;
    
21. Free;
    
22.    end;
    
23. end;
    

复制代码