Inno Setuo 实现音乐的播放和关闭机器继续播放

admin

1. [Code]
   
2. Type
   
3.   HSAMPLE = DWORD;
   
4.   HCHANNEL = DWORD;
   
5. 
   
6. var
   
7.   MusicSwitchLabel1: TNewStaticText;
   
8.   sample: HSAMPLE;
   
9.   channel: HCHANNEL;
   
10. 
    
11. // 以下是所调用的插件函数
    
12. function BASS_Init(device: Integer; freq, flags: DWORD; win: HWND; clsid: string): Boolean;
    
13. external 'BASS_Init@files:BASS.dll stdcall delayload';
    
14. 
    
15. procedure BASS_Free();
    
16. external 'BASS_Free@files:BASS.dll stdcall delayload';
    
17. 
    
18. function BASS_SampleLoad(mem: BOOL; f: PAnsiChar; offset, length, max, flags: DWORD): HSAMPLE;
    
19. external 'BASS_SampleLoad@files:BASS.dll stdcall delayload';
    
20. 
    
21. function BASS_ChannelPlay(handle: DWORD; restart: BOOL): BOOL;
    
22. external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';
    
23. 
    
24. function BASS_ChannelPause(handle: DWORD): BOOL;
    
25. external 'BASS_ChannelPause@files:BASS.dll stdcall delayload';
    
26. 
    
27. function BASS_SampleGetChannel(handle: HSAMPLE; onlynew: BOOL): HCHANNEL;
    
28. external 'BASS_SampleGetChannel@files:BASS.dll stdcall delayload';
    
29. 
    
30. procedure callplug(parentwnd: Integer; pluginname,funcname,param1,param2,param3,param4,param5,param6,param7,param8,param9,param10: PAnsiChar);
    
31. external 'callplug@files:callnsis.dll stdcall delayload';
    
32. 
    
33. // 以下是点击“关于”按钮后的响应函数
    
34. procedure AboutButtonOnClick(Sender: TObject);
    
35. begin
    
36.   MsgBox('这是你的信息。'#13#10'这是你的信息的第二行。', mbInformation, MB_OK);
    
37. end;
    
38. 
    
39. // 以下是点击“关闭音乐”按钮后的响应函数
    
40. procedure MusicSwitchLabel1OnClick(Sender: TObject);
    
41. begin
    
42.   if MusicSwitchLabel1.Caption = '关闭音乐' then
    
43.     begin
    
44.       BASS_ChannelPause(channel);
    
45.       MusicSwitchLabel1.Caption := '打开音乐';
    
46.     end
    
47.   else
    
48.     begin
    
49.       BASS_ChannelPlay(channel, false);
    
50.       MusicSwitchLabel1.Caption := '关闭音乐';
    
51.     end;
    
52. end;
    
53. 
    
54. // 安装向导初始化函数
    
55. procedure InitializeWizard();
    
56. var
    
57.   AboutButton: TButton;
    
58.   BGMusicFile, SplashFile: string;
    
59. begin
    
60.   // 创建“关于”按钮
    
61.   AboutButton := TButton.Create(WizardForm);
    
62.   AboutButton.Left := WizardForm.ClientWidth - WizardForm.CancelButton.Left - WizardForm.CancelButton.Width;
    
63.   AboutButton.Top := WizardForm.CancelButton.Top;
    
64.   AboutButton.Width := WizardForm.CancelButton.Width;
    
65.   AboutButton.Height := WizardForm.CancelButton.Height;
    
66.   AboutButton.Caption := '关于(&A)...';
    
67.   AboutButton.OnClick := @AboutButtonOnClick;
    
68.   AboutButton.Parent := WizardForm;
    
69. 
    
70.   // 创建文字标签作为“打开音乐”或“关闭音乐”按钮
    
71.   MusicSwitchLabel1 := TNewStaticText.Create(WizardForm);
    
72.   MusicSwitchLabel1.Left := AboutButton.Left + ScaleX(110);
    
73.   MusicSwitchLabel1.Top := WizardForm.CancelButton.Top + ScaleY(7);
    
74.   MusicSwitchLabel1.Width := ScaleX(50);
    
75.   MusicSwitchLabel1.Height := ScaleY(12);
    
76.   MusicSwitchLabel1.Font.Color := clBlue;
    
77.   MusicSwitchLabel1.Font.Style := [fsUnderline];
    
78.   MusicSwitchLabel1.Cursor := crHand;
    
79.   MusicSwitchLabel1.Caption := '关闭音乐';
    
80.   MusicSwitchLabel1.OnClick := @MusicSwitchLabel1OnClick;
    
81.   MusicSwitchLabel1.Parent := WizardForm;
    
82.   
    
83.   // 释放临时文件
    
84.   ExtractTemporaryFile('BASS.dll');
    
85.   ExtractTemporaryFile('CallNSIS.DLL');
    
86.   ExtractTemporaryFile('NewAdvSplash.DLL');
    
87.   ExtractTemporaryFile('mymusic.mp3');
    
88.   ExtractTemporaryFile('splash.gif');
    
89. 
    
90.   BGMusicFile := ExpandConstant('{tmp}\mymusic.mp3');
    
91.   SplashFile := ExpandConstant('{tmp}\splash.gif');
    
92. 
    
93.   // 播放背景音乐
    
94.   if not BASS_Init(-1,44100,0,0,'') then
    
95.     BASS_Free;
    
96.   sample := BASS_SampleLoad(false, PAnsiChar(BGMusicFile), 0, 0, 1, 4);
    
97.   if sample<>0 then
    
98.     begin
    
99.     channel:= BASS_SampleGetChannel(sample, false);
    
100.     BASS_ChannelPlay(channel, true);
     
101.     end;
     
102. 
     
103.   // 闪屏：显示时间 1600、淡入 800、淡出 500、透明颜色 -2 （表示 gif 图像本身透明）
     
104.   callplug(0,ExpandConstant('{tmp}\NewAdvSplash.dll'),'show','1600','800','500','-2',SplashFile,'','','','','');
     
105. 
     
106.   // 以下是安装向导初始化函数的其它代码
     
107.   // 请自己加上
     
108. end;
     
109. 
     
110. // 以下是其它 CODE 段代码
     
111. // 请自己加上

复制代码