[Setup]
Encryption=no
[Files]
;拷贝到临时文件夹
Source: "C:\Documents and Settings\Administrator\桌面\smqh\mymusic.mp3"; DestDir: "{tmp}"; DestName:music.mp3; Flags: dontcopy
[Code]
Function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
external 'mciSendStringA@winmm.dll stdcall';
procedure InitializeWizard();
var
BGMusicFile, SplashFile: string;
SplashForm: TForm;
SplashFileName: String;
I: Integer;
begin
ExtractTemporaryFile(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;
其中可以设置
[Setup]
Encryption=no
或
[Files]
Source: "C:\Documents and Settings\Administrator\桌面\smqh\mymusic.mp3"; DestDir: "{tmp}"; DestName:music.mp3; Flags: dontcopy noEncryption