MrDum32
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Code]
var
DirectXPage: TWizardPage;
Panel1: TPanel;
NewCheckBox1: TNewCheckBox;
NewCheckBox2: TNewCheckBox;
NewCheckBox3: TNewCheckBox;
procedure InitializeWizard();
begin
{ Creates custom wizard page }
DirectXPage := CreateCustomPage(wpSelectDir, 'Установка дополнительного программного обеспечения', 'Какое дополнительное программное обеспечение требуется установить?');
with WizardForm do
begin
Color := clBlack;
end;
with WizardForm.InnerPage do
begin
Color := clBlack;
end;
with WizardForm.MainPanel do
begin
Color := clBlack;
end;
with WizardForm.PageDescriptionLabel do
begin
Font.Color := clYellow;
ParentFont := False;
end;
with WizardForm.PageNameLabel do
begin
Font.Color := clYellow;
end;
{ ISCustomPage1 }
with DirectXPage.Surface do
begin
Name := 'DirectXPage';
Color := clBlack;
end;
{ Panel1 }
Panel1 := TPanel.Create(WizardForm);
with Panel1 do
begin
Name := 'Panel1';
Parent := DirectXPage.Surface;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(417);
Height := ScaleY(32);
Caption := 'Какое программное обеспечение необходимо установить?';
Color := clBlack;
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'Tahoma';
Font.Style := [];
ParentFont := False;
end;
{ NewCheckBox1 }
NewCheckBox1 := TNewCheckBox.Create(WizardForm);
with NewCheckBox1 do
begin
Name := 'NewCheckBox1';
Parent := DirectXPage.Surface;
Left := ScaleX(16);
Top := ScaleY(50);
Width := ScaleX(280);
Height := ScaleY(20);
Color := clGray;
Font.Color := clYellow;
Caption := 'Установка Microsoft DirectX 9c';
end;
{ NewCheckBox2 }
NewCheckBox2 := TNewCheckBox.Create(WizardForm);
with NewCheckBox2 do
begin
Name := 'NewCheckBox2';
Parent := DirectXPage.Surface;
Left := ScaleX(16);
Top := ScaleY(90);
Width := ScaleX(280);
Height := ScaleY(20);
Color := clGray;
Font.Color := clYellow;
Caption := 'Установка Microsoft Visual C++';
end;
{ NewCheckBox3 }
NewCheckBox3 := TNewCheckBox.Create(WizardForm);
with NewCheckBox3 do
begin
Name := 'NewCheckBox3';
Parent := DirectXPage.Surface;
Left := ScaleX(16);
Top := ScaleY(130);
Width := ScaleX(280);
Height := ScaleY(20);
Color := clGray;
Font.Color := clYellow;
Caption := 'Установка Microsoft NET Framework 2.0';
end;
Panel1.TabOrder := 0;
NewCheckBox1.TabOrder := 1;
NewCheckBox2.TabOrder := 2;
NewCheckBox3.TabOrder := 3;
end;
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: Integer;
begin
if CurStep = ssPostInstall then begin
WizardForm.NextButton.Enabled := false;
if(NewCheckBox1.State = cbChecked) then
Exec(ExpandConstant('{src}\Support\DirectX\DXSETUP.EXE'), '/silent', '', SW_SHOW,
ewWaitUntilTerminated, ResultCode);
if(NewCheckBox2.State = cbChecked) then
Exec(ExpandConstant('{src}\Support\vcredist_x86.EXE'), '', '', SW_SHOWNORMAL,
ewWaitUntilTerminated, ResultCode);
if(NewCheckBox3.State = cbChecked) then
Exec(ExpandConstant('{src}\Support\dotnetfx.EXE'), '', '', SW_SHOWNORMAL,
ewWaitUntilTerminated, ResultCode);
WizardForm.NextButton.Enabled := true;
end;
end;
|
