[Ivn78]

ZVSRus,
Страница создается скажем при наличии ключа в реестре. Если ключа нет, она не создается. Далее в коде (уже совсем в другом месте, скажем, на ssDone при нажатом чекбоксе на той самой странице происходит еще что-то. Проблема возникает, если на ssDone идет обращение к чекбоксу страницы, которая ввиду условий не была создана. Это все упрощенно, условий для создания страницы больше

Повторюсь, может проще ее создавать изначально, но при тех же условиях ее просто не показывать ( пропускать)

[ZVSRus]

Страница создается скажем при наличии ключа в реестре. Если ключа нет, она не создается.

Первый раз слышу чтобы Если ключа нет, она не создается если ключ есть то она создается.
Костомная страница при наличии ключа сама не создастся, её нужно изначально ручками создавать. А уже потом написать функцию для ключа в реестре, в функции прописать если ключ в реестре есть страницу показывать, ключа в реестре нет страницу не показывать.

Это все упрощенно, условий для создания страницы больше

Условий для создания костомной страницы автоматом я не знаю и нигде не встречал, ввиду того что создания страниц как вы описываете не существует. Пример, создалась у вас при наличии ключа в реестре страница автоматом, что и на ней уже существуют чекбоксы, лейблы, все те компоненты какие вы желаете видеть? Ну да ладно!!!

[Ivn78]

ZVSRus,
немного мы не понимаем друг друга, ну да ладно

Код:

procedure CreatePageUPnP();
begin
    UPnPPage := CreateCustomPage(PgID, ExpandConstant('{cm:UPnPDlgCaption}'), ExpandConstant('{cm:UPnPDlgDescription}'));
    Header := TNewStaticText.Create(UPnPPage);
    Header.Parent := UPnPPage.Surface;
    Header.SetBounds(0, 0, WizardForm.InnerNotebook.Width, ScaleY(110));
    Header.Autosize := False;
    Header.WordWrap := True;
    Header.Caption := ExpandConstant('{cm:UPnPDlgExplanation}');
    UPnPCheck := TCheckBox.Create(WizardForm);
    with UPnPCheck do begin
        Parent := UPnPPage.Surface;
        Left := ScaleX(0);
        Top := ScaleY(212);
        Caption := ExpandConstant('{cm:UPnPDlgConfigure}');
        Width := ScaleX(300);
        Checked := True;
    End;
    if UPnPConfigure then UPnPCheck.State := cbUnChecked else UPnPCheck.State := cbChecked;
end;

procedure InitializeWizard();
begin
    if AskedUPnPConfigure then CreatePageUPnP();
end;

Я не писал, что страница создается автоматом. Я писал, что команда на ее создание отправляется только при определенных условиях.

если ключ в реестре есть страницу показывать, ключа в реестре нет страницу не показывать »

Это как можно сделать?

[El Sanchez]

Я не писал, что страница создается автоматом. Я писал, что команда на ее создание отправляется только при определенных условиях. »

Ivn78, создавайте страницу в любом случае, ее показ регулируйте в ShouldSkipPage:

Скрытый текст

Код:

procedure InitializeWizard;
begin
  CreatePageUPnP();
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := False;
  case PageID of
    UPnPPage.ID:
      Result := not AskedUPnPConfigure;
  end;
end;

[Ivn78]

Прошу помощи. Нужно организовать проверку установленной версии IE.

Код:

HKLM, 'SOFTWARE\Microsoft\Internet Explorer', 'Version'

значение вида 7.0.5730.13. Как сделать, чтобы если первая цифра (число до первой точки) этого значения меньше 8, то выполнять действия?

[nik1967]

Ivn78,

Пример

Код:

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[code]
var
  NVersion: String;
	
function InitializeSetup: Boolean;
begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Internet Explorer', 'Version', NVersion);
  Delete(NVersion, 2, Length(NVersion));
  if StrToInt(NVersion) < 8 then begin
    MsgBox('Пора бы обновить', mbInformation, MB_OK);
    Result:= false;
  end else begin
    MsgBox('IE в норме', mbInformation, MB_OK);
    Result:= true;
  end;
end;

[Ivn78]

nik1967,
а как быть, если первое число двухзначное? сейчас получается, что 10<8

[nik1967]

Ivn78,

Тогда так

Код:

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[code]
var
  NVersion: String;
  Tochka: Integer;
	
function InitializeSetup: Boolean;
begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Internet Explorer', 'Version', NVersion);
  Tochka:= Pos('.', NVersion);
  Delete(NVersion, Tochka, Length(NVersion));
  if StrToInt(NVersion) < 8 then begin
    MsgBox('Пора бы обновить', mbInformation, MB_OK);
    Result:= false;
  end else begin
    MsgBox('IE в норме', mbInformation, MB_OK);
    Result:= true;
  end;
end;

[ENERGES]

подскажите пожалуйста как удалить название игры в этом пункте https://s8.hostingkartinok.com/uploa...f32e281622.png
http://rgho.st/8TsjZx2Y6

[Nordek]

подскажите пожалуйста как удалить название игры в этом пункте »

Если: "SelectDirLabel3=Программа установит [name] в следующую папку." - То соответственно:

Код:

[Languages]
Name: en; MessagesFile: compiler:Default.isl
Name: ru; MessagesFile: compiler:Languages\Russian.isl

[Messages]
ru.SelectDirLabel3=Программа установит в следующую папку.
en.SelectDirLabel3=Setup will install into the following folder.

- Всё просто.