alex0413
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Code]
var
DirectXPage: TWizardPage;
Panel1: TPanel;
DirectX,DotNET,VCRedist: TNewCheckBox;
procedure InitializeWizard();
begin
DirectXPage := CreateCustomPage(wpSelectDir, 'Установка дополнительного программного обеспечения', 'Какое дополнительное программное обеспечение требуется установить?');
with WizardForm do
begin
Color := clBlack;
InnerPage.Color := clBlack;
WelcomeLabel1.Color:=clBlack;
WelcomeLabel1.Font.Color:=clYellow;
WelcomePage.Color:=clBlack;
MainPanel.Color := clBlack;
FinishedPage.Color:=clBlack;
Font.Color:=clYellow;
ReadyMemo.Color:=clBlack;
end;
Panel1 := TPanel.Create(WizardForm);
with Panel1 do
begin
Parent := DirectXPage.Surface;
SetBounds(0,0,417,32);
Caption := 'Какое программное обеспечение необходимо установить?';
end;
DirectX := TNewCheckBox.Create(WizardForm);
with DirectX do
begin
Parent := DirectXPage.Surface;
SetBounds(16,50,280,20);
Caption := 'Установка Microsoft DirectX 9c';
end;
VCRedist := TNewCheckBox.Create(WizardForm);
with VCRedist do
begin
Parent := DirectXPage.Surface;
SetBounds(16,90,280,20);
Caption := 'Установка Microsoft Visual C++';
end;
DotNET := TNewCheckBox.Create(WizardForm);
with DotNET do
begin
Parent := DirectXPage.Surface;
SetBounds(16,130,280,20);
Caption := 'Установка Microsoft NET Framework 2.0';
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: Integer;
begin
if CurStep = ssPostInstall then begin
if DirectX.Checked then
Exec(ExpandConstant('{src}\Support\DirectX\DXSETUP.EXE'), '/silent', '', SW_SHOW,ewWaitUntilTerminated, ResultCode);
if VCRedist.Checked then
Exec(ExpandConstant('{src}\Support\vcredist_x86.EXE'), '', '', SW_SHOWNORMAL,ewWaitUntilTerminated, ResultCode);
if DotNET.Checked then
Exec(ExpandConstant('{src}\Support\dotnetfx.EXE'), '', '', SW_SHOWNORMAL,ewWaitUntilTerminated, ResultCode);
end;
end; |
Всего записей: 139 | Зарегистр. 15-01-2011 | Отправлено: 14:53 12-07-2012 | Исправлено: alex0413, 15:00 12-07-2012 |
|
