chelobey
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Setup
AppName=My Program
AppVerName=My Program v.1.2
AlwaysShowComponentsList=true
DefaultDirName={pf}\My Program
Components
Name: prog; Description: program; Types: var1; Flags: exclusive
Name: cfg1; Description: program+config 1; Types: var2; Flags: exclusive
Name: cfg2; Description: program+config 2; Types: var2; Flags: exclusive
Name: cfg3; Description: program+config 3; Types: var2; Flags: exclusive
Types
Name: var1; Description: program
Name: var2; Description: program+config; Flags: iscustom
Code
var
Page1, Page2, Page3: TWizardPage;
Procedure InitializeWizard();
begin
Page1:= CreateCustomPage(wpSelectComponents, 'Config 1 page', 'cfg1');
Page2:= CreateCustomPage(Page1.ID, 'Config 2 page', 'cfg2');
Page3:= CreateCustomPage(Page1.ID, 'Config 3 page', 'cfg3');
end;
function ShouldSkipPage(PageID: Integer): Boolean;
begin
Case PageID of
Page1.ID,Page1.ID: Result:= not IsComponentSelected('cfg1');
Page1.ID,Page2.ID: Result:= not IsComponentSelected('cfg2');
Page1.ID,Page3.ID: Result:= not IsComponentSelected('cfg3');
end;
end;
|
Всего записей: 78 | Зарегистр. 31-05-2007 | Отправлено: 17:37 19-12-2008 | Исправлено: chelobey, 12:36 20-12-2008 |
|
