Chuvakstepan
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору var Image2: TBitmapImage; function mciSendString(lpstrCommand: string; lpstrReturnString: string; uReturnLength:integer; hwndCallback:integer):integer; external 'mciSendStringA@winmm.dll stdcall'; procedure BevelLabelOnClick(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end; procedure InitializeWizard(); var Page: TWizardPage; BackImage: TBitmapImage; s:string; begin ExtractTemporaryFile('Image2.bmp') WizardForm.WizardBitmapImage.Width:=497 WizardForm.WelcomeLabel1.Visible:=False WizardForm.WelcomeLabel2.Visible:=False WizardForm.WizardBitmapImage2.Visible:=False WizardForm.FinishedLabel.Visible:=False WizardForm.FinishedHeadingLabel.Visible:=False ExtractTemporaryFile(ExpandConstant('Sound.mp3')) mciSendString(ExpandConstant('play {tmp}\Sound.mp3 repeat'),'NULL',0,0) ExtractTemporaryFile('BackImage.bmp') s:=ExpandConstant('{tmp}')+'\BackImage.bmp' BackImage:=TBitmapImage.Create(MainForm) BackImage.Bitmap.LoadFromFile(s) BackImage.Align:=alClient BackImage.Parent:=MainForm BackImage.Stretch:=True begin with WizardForm.BeveledLabel do begin Cursor := crHand; OnClick := @BevelLabelOnClick; Font.Style := Font.Style + [fsUnderline]; Font.Color := clBlue; Enabled:= True; end; end; end; procedure CurPageChanged(CurPageID: Integer); begin If CurPageID=wpFinished then begin Image2:=TBitmapImage.Create(WizardForm) with Image2 do begin Left:=0 Top:=0 Width:=497 Height:=313 Parent:=WizardForm.FinishedPage Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Image2.bmp') end end end; |