[Shkutu]

Dinvin4ester, а вам в какой момент чекбокс нужен (на скрине не слишком понятно, какая страница отображается)?
Флаг postinstall покажет чекбокс, когда установка уже будет завершена (на странице wpFinished). Если нужен чекбокс до начала установки, то кроме секции [Run] нужна еще секция [Tasks].

Код:

[Tasks]
Name: "dxwebsetup"; Description: "dxwebsetup"; Flags: unchecked

[Run]
Filename: {app}\Soft\dxwebsetup.exe; WorkingDir: {app}\Soft;  Flags: waituntilterminated skipifsilent; Tasks: dxwebsetup

[Dinvin4ester]

Shkutu,
Ага,чекбокс нужен до начала установки,чтобы можно было снять его ,точнее убрать или поставить галку.Щас попробовал ваш способ ,осталось также как и было . Получается уже чистый лист http://i58.fastpic.ru/big/2014/0411/...f4434ce6a5.jpg , а мне хотелось туда впихнуть.

[TryRooM]

Dinvin4ester, http://rghost.ru/53991057

[Dinvin4ester]

TryRooM,
Спасибо,попробую.

[Dodakaedr]

возможно создать check для секции Run? Что-то типа этого:

Код:

[Run]
Filename: "{tmp}\script.vbs"; Parameters: """{app}\{#MyAppExeName}"""; Check: CheckPin; Flags: shellexec skipifsilent;

[saurn]

возможно создать check для секции Run »

Самопальный чекбокс и чековая функция:

читать дальше »

Код:

[Code]
var
  CheckBoxPin: TCheckBox;


function CheckPin(): Boolean;
begin
    if CheckBoxPin <> nil then
      Result := CheckBoxPin.Checked;
end;


procedure CheckBoxPinCreate();
begin
    CheckBoxPin := nil;

    if (GetWindowsVersion >= $06010000) then
      begin
          CheckBoxPin := TCheckBox.Create(nil);
          with CheckBoxPin do
          begin
              Parent := WizardForm.SelectDirPage;
              SetBounds(WizardForm.DirEdit.Left, WizardForm.DiskSpaceLabel.Top div 2, WizardForm.DirEdit.Width, ScaleY(17))
              Caption := 'Закрепить ярлык на панели задач Windows';
          end;
      end;
end;


procedure InitializeWizard();
begin
    CheckBoxPinCreate();
end;


procedure CurPageChanged(const CurPageID: Integer); //Debug
begin
    case CurPageID of
        10: if CheckPin <> False then WizardForm.Caption := 'True';
    end;
end;

Можно и при помощи тасков.

[Dodakaedr]

Можно и при помощи тасков. »

Можно тоже примерчик???

[saurn]

Можно тоже примерчик??? »

Код:

[Tasks]
Name: CheckPin; Description: Закрепить ярлык на панели задач Windows; Flags: unchecked; MinVersion: 0,6.1


[Run]
Filename: "{tmp}\script.vbs"; Parameters: """{app}\{#MyAppExeName}"""; Tasks: CheckPin; Flags: shellexec skipifsilent;

[Dodakaedr]

При отмеченном чекбоксе после успешной установки выбивает ошибку что файл сценария не найден(( Как исправить?

Код: [Tasks] Name: CheckPin; Description: Закрепить ярлык на панели задач Windows; Flags: unchecked; MinVersion: 0,6.1 [Run] Filename: "{tmp}\script.vbs"; Parameters: """{app}\{#MyAppExeName}"""; Tasks: CheckPin; Flags: shellexec skipifsilent; »

Спасибо, но такое не подходит....

[saurn]

выбивает ошибку что файл сценария не найден(( Как исправить? »

Ну, как бы, элементарно: указать компилятору в секции файлов, где этот сценарий находится и извлекать оный во временную папку:

Код:

[Files]
Source:script.vbs; DestDir: {tmp}; Flags: deleteafterinstall;