软件安装界面与音乐是怎么弄的。 最近我发现别人的那软件在安装时有音乐播放,界面上还放了一张照片,不知道是怎么弄的,希望会弄的给我指点指点,谢谢(QQ:2227411448) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 nno Setup如何在安装时播放音乐在脚本编译里的[Code]与[Files]段处添加以下代码:[Code]Function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;external '[email protected] stdcall';procedure InitializeWizard();var BGMusicFile, SplashFile: string;SplashForm: TForm;SplashFileName: String;I: Integer; beginExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\music.mp3')));SplashForm := TForm.create(nil);with SplashForm do beginmciSendString(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安装时创建的临时文件夹内的music.mp3音乐文件!注:路径和音乐文件名一定要正确,不然找不到。 inno setup5.0 使用 DBlookupcombobox.filter属性是报错的问题? 在哪儿能买到<DELPHI下深入WINDOWS核心编程>一书? 制作多维图表 难道就没办法把一个类函数转成非类函数类型吗? 动态控件的索引值怎么得到? 請問有沒有涵數可得知系統的啟動資料夾路徑? 本来运行通过的,但今天又不行了,请帮忙看看是什么原因 如何将收到的数据存成文件?(急!!!) 请问CreateMutex创建互斥体怎么使用? 请教局域网上的问题,在线求助! 大家帮忙 急急急!!Dev Express中cxverticalgrid的cxVerticalGrid1EditorRow输入限制的问题
[Code]
Function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
external '[email protected] stdcall';procedure InitializeWizard();
var
BGMusicFile, SplashFile: string;
SplashForm: TForm;
SplashFileName: String;
I: Integer;
beginExtractTemporaryFile(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安装时创建的临时文件夹内的music.mp3音乐文件!注:路径和音乐文件名一定要正确,不然找不到。