Inno Setup璇︾粏鏁欑▼ - 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

Inno Setup

璇︾粏鏁欑▼

 

 

 

 

 

 

涓�

.

鍏充簬

Inno Setup

濡備綍鍦ㄥ畨瑁呮椂鎾�鏀鹃煶涔愭柟娉曪�?/p>

1

锛?/p>

锛氬湪

鑴氭湰缂栬瘧閲岀殑

[Code]

涓?/p>

[Files]

娈靛�勬坊鍔犱互涓嬩唬鐮侊�?/p>

[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; 

 

beginExtractTemporaryFile(ExtractFileName(ExpandConstant(''

{tmp}\music.mp3''))); 

SplashForm := TForm.create(nil); 

with SplashForm do 

 

 

 

begin 

mciSendString(ExpandConstant(''play 

{tmp}\music.mp3''),0,0,0); 

Close;