Inno Setup (создание инсталяционных пакетов) - [51] :: Программы

Подскажите как слепить вместе два скрипта..

этот

Код:

var
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;

{ hazyneIP_Activate }

procedure hazyneIP_Activate(Page: TWizardPage);
begin
// enter code here...
end;

{ hazyneIP_ShouldSkipPage }

function hazyneIP_ShouldSkipPage(Page: TWizardPage): Boolean;
begin
Result := False;
end;

{ hazyneIP_BackButtonClick }

function hazyneIP_BackButtonClick(Page: TWizardPage): Boolean;
begin
Result := True;
end;

{ hazyneIP_NextkButtonClick }

function hazyneIP_NextButtonClick(Page: TWizardPage): Boolean;
begin
Result := True;
end;

{ hazyneIP_CancelButtonClick }

procedure hazyneIP_CancelButtonClick(Page: TWizardPage; var Cancel, Confirm: Boolean);
begin
// enter code here...
end;

{ hazyneIP_CreatePage }

function hazyneIP_CreatePage(PreviousPageId: Integer): Integer;
var
Page: TWizardPage;
begin
Page := CreateCustomPage(
PreviousPageId,
ExpandConstant('{cm:hazyneIP_Caption}'),
ExpandConstant('{cm:hazyneIP_Description}')
);

{ Label1 }
Label1 := TLabel.Create(Page);
with Label1 do
begin
Parent := Page.Surface;
Caption := ExpandConstant('{cm:hazyneIP_Label1_Caption0}');
Left := ScaleX(24);
Top := ScaleY(24);
Width := ScaleX(306);
Height := ScaleY(13);
end;

{ Label2 }
Label2 := TLabel.Create(Page);
with Label2 do
begin
Parent := Page.Surface;
Caption := ExpandConstant('{cm:hazyneIP_Label2_Caption0}');
Left := ScaleX(216);
Top := ScaleY(104);
Width := ScaleX(50);
Height := ScaleY(16);
Font.Color := -16777208;
Font.Height := ScaleY(-13);
Font.Name := 'Tahoma';
end;

{ Label3 }
Label3 := TLabel.Create(Page);
with Label3 do
begin
Parent := Page.Surface;
Caption := ExpandConstant('{cm:hazyneIP_Label3_Caption0}');
Left := ScaleX(48);
Top := ScaleY(104);
Width := ScaleX(133);
Height := ScaleY(14);
Font.Color := -16777208;
Font.Height := ScaleY(-12);
Font.Name := 'Tahoma';
end;

{ Label4 }
Label4 := TLabel.Create(Page);
with Label4 do
begin
Parent := Page.Surface;
Caption := ExpandConstant('{cm:hazyneIP_Label4_Caption0}');
Left := ScaleX(48);
Top := ScaleY(152);
Width := ScaleX(100);
Height := ScaleY(14);
Font.Color := -16777208;
Font.Height := ScaleY(-12);
Font.Name := 'Tahoma';
end;

{ Label5 }
Label5 := TLabel.Create(Page);
with Label5 do
begin
Parent := Page.Surface;
Caption := ExpandConstant('{cm:hazyneIP_Label5_Caption0}');
Left := ScaleX(292);
Top := ScaleY(104);
Width := ScaleX(4);
Height := ScaleY(13);
end;

{ Edit1 }
Edit1 := TEdit.Create(Page);
with Edit1 do
begin
Parent := Page.Surface;
Left := ScaleX(272);
Top := ScaleY(104);
Width := ScaleX(17);
Height := ScaleY(21);
Font.Color := -16777208;
Font.Height := ScaleY(-11);
Font.Name := 'Tahoma';
TabOrder := 0;
Text := ExpandConstant('{cm:hazyneIP_Edit1_Text0}');
end;

{ Edit2 }
Edit2 := TEdit.Create(Page);
with Edit2 do
begin
Parent := Page.Surface;
Left := ScaleX(296);
Top := ScaleY(104);
Width := ScaleX(33);
Height := ScaleY(21);
Font.Color := -16777208;
Font.Height := ScaleY(-11);
Font.Name := 'Tahoma';
TabOrder := 1;
Text := ExpandConstant('{cm:hazyneIP_Edit2_Text0}');
end;

{ Edit3 }
Edit3 := TEdit.Create(Page);
with Edit3 do
begin
Parent := Page.Surface;
Left := ScaleX(216);
Top := ScaleY(144);
Width := ScaleX(113);
Height := ScaleY(21);
TabOrder := 2;
Text := ExpandConstant('{cm:hazyneIP_Edit3_Text0}');
end;

with Page do
begin
OnActivate := @hazyneIP_Activate;
OnShouldSkipPage := @hazyneIP_ShouldSkipPage;
OnBackButtonClick := @hazyneIP_BackButtonClick;
OnNextButtonClick := @hazyneIP_NextButtonClick;
OnCancelButtonClick := @hazyneIP_CancelButtonClick;
end;

Result := Page.ID;
end;

{ hazyneIP_InitializeWizard }

procedure InitializeWizard();
begin
hazyneIP_CreatePage(wpWelcome);
end;

====
и этот
====

Код:

Procedure InitializeWizard();
begin
with WizardForm do begin
Position:=poScreenCenter
ClientWidth:=690
ClientHeight:=496
Font.Color:=clWindow
Font.Name:='MS Sans Serif'
Font.Style:=[]
with Bevel do begin
Left:=0
Top:=312
Width:=497
Height:=2
Visible:=False
end
with CancelButton do begin
Left:=590
Top:=463
Width:=77
Height:=23
BringToFront
end
with NextButton do begin
Left:=365
Top:=462
Width:=77
Height:=23
BringToFront
end
with BackButton do begin
Left:=280
Top:=462
Width:=77
Height:=23
BringToFront
end
with OuterNotebook do begin
Left:=0
Top:=0
Width:=690
Height:=496
with WelcomePage do begin
Color:=11232829
with WizardBitmapImage do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with WelcomeLabel2 do begin
Left:=200
Top:=230
Width:=465
Height:=200
end
with WelcomeLabel1 do begin
Left:=200
Top:=200
Width:=465
Height:=28
Font.Color:=clWindow
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:=200
Top:=90
Width:=470
Height:=358
BringToFront
Color:=11232829
with LicensePage do begin
with LicenseNotAcceptedRadio do begin
Left:=0
Top:=338
Width:=460
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:=388
Top:=288
Width:=77
Height:=25
end
with DirEdit do begin
Left:=0
Top:=290
Width:=378
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:=clWindow
Color:=11232829
end
with TypesCombo do begin
Left:=0
Top:=24
Width:=465
Height:=21
Font.Color:=clWindow
Color:=11232829
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:=388
Top:=288
Width:=77
Height:=25
end
with GroupEdit do begin
Left:=0
Top:=290
Width:=378
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:=11232829
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:=11232829
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:=6697728
Font.Color:=clWindow
end
with PageNameLabel do begin
Left:=15
Top:=7
Width:=500
Height:=14
Color:=6697728
Font.Color:=clWindow
end
end
end
with FinishedPage do begin
Color:=11232829
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:=clWindow
Font.Size:=8
end
end
end
with BeveledLabel do begin
Left:=10
Top:=468
Width:=150
Height:=14
Enabled:=False
Color:=14405068
end
end
end;

Модерирует : gyra, Maz
Widok (25-09-2007 17:33): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102