Скрипты Inno Setup. Помощь и советы [часть 7]

Ivan_009 · Конфигурация компьютера

Цитата Dodakaedr:

код будет работать если чекбоксы выводятся через секцию tasks »

Dodakaedr, Окей:

Пример:

Цитата:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: text; Description: Язык субтитров; Types: full; Flags: fixed
Name: text\rus; Description: Русский; Flags: exclusive;
Name: text\eng; Description: Английский; Flags: exclusive;
Name: voice; Description: Язык озвучки; Types: full; Flags: fixed
Name: voice\rus; Description: Русский; Flags: exclusive;
Name: voice\eng; Description: Английский; Flags: exclusive;

[Tasks]
Name: DirectX; Description: Microsoft DirectX;
Name: VCRedist; Description: Microsoft VCRedist;

Name: DesktopIcon; Description: Ярлык На Рабочем Столе;
Name: StartMenuIcon; Description: Ярлык В Меню Пуск;

[code]
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID =wpSelectComponents) then
Result:= True;
end;

procedure RedesignWizardForm;
begin
WizardForm.ComponentsList.Parent := WizardForm.SelectTasksPage;
WizardForm.ComponentsList.SetBounds(ScaleX(0),ScaleY(37),ScaleX(207),ScaleY(192));
WizardForm.ComponentsList.Cursor:= crHand;

WizardForm.TasksList.SetBounds(ScaleX(210),ScaleY( 37),ScaleX(207),ScaleY(192));
WizardForm.TasksList.BorderStyle := bsSingle;
WizardForm.TasksList.Cursor:= crHand;
WizardForm.TasksList.Color := clWhite;
end;

procedure InitializeWizard();
begin
RedesignWizardForm;
end;