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

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
CheckBox: TNewCheckBox;
Flag: Boolean;

function MyRadioBtnChecked: boolean;
begin
Result:= CheckBox.Checked;
end;

procedure CheckBoxClick(Sender: TObject);
begin
if CheckBox.Checked then
begin
WizardForm.NextButton.Caption:= 'Установить'
end else begin
WizardForm.NextButton.Caption:= 'Далее';
end;
end;

procedure InitializeWizard();
begin
CheckBox := TNewCheckBox.Create(WizardForm);
with CheckBox do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(120);
Width := ScaleX(201);
Height := ScaleY(17);
Caption := 'Распаковка портативной версии';
OnClick := @CheckBoxClick;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpSelectDir:
if CheckBox.Checked then
begin
WizardForm.NextButton.Caption:= 'Установить'
end else begin
WizardForm.NextButton.Caption:= 'Далее';
end;
end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if CheckBox.Checked then
if (PageID = 7) or(PageID = 8) or(PageID = 9)or(PageID = 10) or(PageID = 11)then
// wpWelcome = 1;
// wpLicense = 2;
// wpPassword = 3;
// wpInfoBefore = 4;
// wpUserInfo = 5;
// wpSelectDir = 6;
// wpSelectComponents = 7;
// wpSelectProgramGroup = 8;
// wpSelectTasks = 9;
// wpReady = 10;
// wpPreparing = 11;
// wpInstalling = 12;
// wpInfoAfter = 13;
// wpFinished = 14;
// if (PageID = wpSelectComponents)or(PageID = 10)or(PageID = 14) then
if (PageID = 6) or(PageID = 10) then
Result:= True;
end;

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению