Shegorat
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору [Code] const BACKGROUND=6; TIMER=16; function isxbb_AddImage(Image: PChar; Flags: Cardinal): Integer; external 'isxbb_AddImage@files:isxbb.dll stdcall'; function isxbb_Init(hWnd: Integer): Integer; external 'isxbb_Init@files:isxbb.dll stdcall'; function isxbb_StartTimer(Seconds: Integer; Flags: Cardinal): Integer; external 'isxbb_StartTimer@files:isxbb.dll stdcall'; function isxbb_KillTimer(Flags: Cardinal): Integer; external 'isxbb_KillTimer@files:isxbb.dll stdcall'; Procedure InitializeWizard(); begin ExtractTemporaryFile('5.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\5.jpg',BACKGROUND); isxbb_Init(StrToInt(ExpandConstant('{hwnd}'))); with WizardForm do begin Position:=poScreenCenter ClientWidth:=690 ClientHeight:=496 Font.Color:=15389620 Font.Name:='MS Sans Serif' Font.Style:=[] with Bevel do begin Left:=0 Top:=313 Width:=497 Height:=2 Visible:=False end with CancelButton do begin Left:=580 Top:=464 Width:=90 Height:=25 BringToFront end with NextButton do begin Left:=430 Top:=464 Width:=90 Height:=25 BringToFront end with BackButton do begin Left:=330 Top:=464 Width:=90 Height:=25 BringToFront end with OuterNotebook do begin Left:=0 Top:=0 Width:=690 Height:=496 with WelcomePage do begin Color:=7891286 with WizardBitmapImage do begin Left:=0 Top:=0 Width:=690 Height:=496 end with WelcomeLabel2 do begin Left:=205 Top:=230 Width:=465 Height:=200 end with WelcomeLabel1 do begin Left:=205 Top:=190 Width:=465 Height:=28 Font.Color:=15389620 Font.Size:=8 end end with InnerPage do begin with Bevel1 do begin Left:=0 Top:=58 Width:=499 Height:=3 Visible:=False end with InnerNotebook do begin Left:=205 Top:=79 Width:=465 Height:=354 BringToFront Color:=7891286 with LicensePage do begin with LicenseNotAcceptedRadio do begin Left:=0 Top:=338 Width:=465 Height:=17 Checked:=True end with LicenseAcceptedRadio do begin Left:=0 Top:=318 Width:=465 Height:=17 end with LicenseMemo do begin Left:=0 Top:=38 Width:=465 Height:=266 ReadOnly:=True ScrollBars:=ssVertical end with LicenseLabel1 do begin Left:=0 Top:=0 Width:=465 Height:=28 end end with PasswordPage do begin with PasswordEdit do begin Left:=0 Top:=50 Width:=465 Height:=21 Font.Color:=clWindowText end with PasswordEditLabel do begin Left:=0 Top:=34 Width:=465 Height:=14 end with PasswordLabel do begin Left:=0 Top:=0 Width:=465 Height:=28 end end with InfoBeforePage do begin with InfoBeforeMemo do begin Left:=0 Top:=24 Width:=465 Height:=327 ScrollBars:=ssVertical end with InfoBeforeClickLabel do begin Left:=0 Top:=0 Width:=465 Height:=14 end end with UserInfoPage do begin with UserInfoSerialEdit do begin Left:=0 Top:=120 Width:=465 Height:=21 Font.Color:=clWindowText end with UserInfoSerialLabel do begin Left:=0 Top:=104 Width:=465 Height:=14 end with UserInfoOrgEdit do begin Left:=0 Top:=68 Width:=465 Height:=21 Font.Color:=clWindowText end with UserInfoOrgLabel do begin Left:=0 Top:=52 Width:=465 Height:=14 end with UserInfoNameEdit do begin Left:=0 Top:=16 Width:=465 Height:=21 Font.Color:=clWindowText end with UserInfoNameLabel do begin Left:=0 Top:=0 Width:=465 Height:=14 end end with SelectDirPage do begin with SelectDirBitmapImage do begin Left:=0 Top:=0 Width:=32 Height:=32 Visible:=False end with DiskSpaceLabel do begin Left:=0 Top:=340 Width:=465 Height:=14 end with DirBrowseButton do begin Left:=375 Top:=288 Width:=90 Height:=25 end with DirEdit do begin Left:=0 Top:=290 Width:=365 Height:=21 Font.Color:=clWindowText end with SelectDirBrowseLabel do begin Left:=0 Top:=24 Width:=465 Height:=28 end with SelectDirLabel do begin Left:=0 Top:=0 Width:=465 Height:=14 end end with SelectComponentsPage do begin with ComponentsDiskSpaceLabel do begin Left:=0 Top:=340 Width:=417 Height:=14 end with ComponentsList do begin Left:=0 Top:=48 Width:=465 Height:=275 Font.Color:=15389620 Color:=7891286 end with TypesCombo do begin Left:=0 Top:=24 Width:=465 Height:=21 Font.Color:=15389620 Color:=7891286 end with SelectComponentsLabel do begin Left:=0 Top:=0 Width:=465 Height:=14 end end with SelectProgramGroupPage do begin with SelectGroupBitmapImage do begin Left:=0 Top:=0 Width:=32 Height:=32 Visible:=False end with NoIconsCheck do begin Left:=0 Top:=337 Width:=465 Height:=17 end with GroupBrowseButton do begin Left:=375 Top:=288 Width:=90 Height:=25 end with GroupEdit do begin Left:=0 Top:=290 Width:=365 Height:=21 Font.Color:=clWindowText end with SelectStartMenuFolderBrowseLabel do begin Left:=0 Top:=24 Width:=465 Height:=28 end with SelectStartMenuFolderLabel do begin Left:=0 Top:=0 Width:=465 Height:=14 end end with SelectTasksPage do begin with TasksList do begin Left:=0 Top:=34 Width:=465 Height:=317 Color:=7891286 end with SelectTasksLabel do begin Left:=0 Top:=0 Width:=465 Height:=28 end end with ReadyPage do begin with ReadyMemo do begin Left:=0 Top:=34 Width:=465 Height:=317 Color:=7891286 end with ReadyLabel do begin Left:=0 Top:=0 Width:=465 Height:=28 end end with PreparingPage do begin with PreparingErrorBitmapImage do begin Left:=0 Top:=0 Width:=16 Height:=16 Visible:=False end with PreparingLabel do begin Left:=24 Top:=0 Width:=393 Height:=14 Visible:=False end end with InstallingPage do begin with FilenameLabel do begin Left:=0 Top:=16 Width:=465 Height:=16 end with StatusLabel do begin Left:=0 Top:=0 Width:=465 Height:=16 end with ProgressGauge do begin Left:=0 Top:=42 Width:=465 Height:=21 Min:=0 Max:=100 end end with InfoAfterPage do begin with InfoAfterMemo do begin Left:=0 Top:=24 Width:=465 Height:=327 ScrollBars:=ssVertical end with InfoAfterClickLabel do begin Left:=0 Top:=0 Width:=465 Height:=14 end end end with MainPanel do begin Left:=0 Top:=0 Width:=690 Height:=496 Color:=clWindow with WizardSmallBitmapImage do begin Left:=0 Top:=0 Width:=690 Height:=496 BackColor:=clWindow end with PageDescriptionLabel do begin Left:=25 Top:=25 Width:=500 Height:=14 Color:=9208939 Font.Color:=15389620 end with PageNameLabel do begin Left:=15 Top:=7 Width:=500 Height:=14 Color:=9208939 Font.Color:=15389620 end end end with FinishedPage do begin Color:=7891286 with WizardBitmapImage2 do begin Left:=0 Top:=0 Width:=690 Height:=496 end with NoRadio do begin Left:=205 Top:=227 Width:=465 Height:=17 end with YesRadio do begin Left:=205 Top:=199 Width:=465 Height:=17 end with RunList do begin Left:=205 Top:=199 Width:=465 Height:=149 BorderStyle:=bsNone end with FinishedLabel do begin Left:=205 Top:=119 Width:=465 Height:=53 end with FinishedHeadingLabel do begin Left:=205 Top:=79 Width:=465 Height:=24 Font.Color:=15389620 Font.Size:=8 end end end with BeveledLabel do begin Left:=10 Top:=468 Width:=150 Height:=14 Enabled:=False Color:=6050633 end end end; procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep=ssInstall then begin ExtractTemporaryFile('3.bmp'); ExtractTemporaryFile('4.bmp'); ExtractTemporaryFile('6.bmp'); ExtractTemporaryFile('5.bmp'); isxbb_AddImage(ExpandConstant('{tmp}')+'\3.bmp',BACKGROUND or TIMER); isxbb_AddImage(ExpandConstant('{tmp}')+'\4.bmp',BACKGROUND or TIMER); isxbb_AddImage(ExpandConstant('{tmp}')+'\6.bmp',BACKGROUND or TIMER); isxbb_AddImage(ExpandConstant('{tmp}')+'\5.bmp',BACKGROUND or TIMER); isxbb_Init(StrToInt(ExpandConstant('{hwnd}'))); isxbb_StartTimer(180,BACKGROUND) end else if CurStep=ssPostInstall then isxbb_KillTimer(BACKGROUND); end; |