[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Code]
var
lbl1: TLabel;
#ifdef NameMusic
procedure tmr1Timer(Sender: TObject);
var
str: string;
begin
str:= lbl1.Caption;
lbl1.Caption:= Copy(str, Length(str), 1) + Copy(str, -2, Length(str) - 1);
end;
#endif
/////Добавление музыки/////
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('Music.mp3');
BASS_Init('{tmp}\Music.mp3') //Запускаем музыку
//Можно добавить в инсталл несколько песен
//BASS_Init(ExpandConstant('{tmp}\*')) //Поиск по маске
BASS_OnOffBtn:=BtnCreate(WizardForm.Handle,ScaleX(600),ScaleY(310),ScaleX(30),ScaleY(30),ExpandConstant('{tmp}\MusicButton.png'),0,True);
BtnSetEvent(BASS_OnOffBtn, 1, WrapBtnCallback(@BASS_OnOffClick, 1))
BtnSetCursor(BASS_OnOffBtn,GetSysCursorHandle(32649));
procedure InitializeWizard;
begin
#ifdef NameMusic
lbl1:= TLabel.Create(WizardForm);
with lbl1 do begin
Parent:= WizardForm;
Left:= ScaleX(425);
Top:= ScaleY(340);
Width:= ScaleX(200);
Height:= ScaleY(20);
AutoSize:= False;
Caption:= '{#NameMusic}';
Font.Color:= clAqua;
Font.Height:= ScaleX(-16);
Font.Name:= 'Time New Roman';
Font.Style:= [fsBold, fsItalic];
ParentFont:= False;
end;
tmr1:= TTimer.Create(WizardForm);
with tmr1 do begin
Interval:= 200;
OnTimer:= @tmr1Timer;
end;
#endif
end;