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

[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/a5/d114a201a14ed4a81ee24ff4434ce6a5.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;

[Dodakaedr]

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

[TryRooM]

Dodakaedr, http://rghost.ru/54002757

[Dodakaedr]

TryRooM, нет, нужно через секцию code

[TryRooM]

Dodakaedr, http://rghost.ru/54003620

[Dodakaedr]

TryRooM, тоже самое..... ошибка.

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

[TryRooM]

Dodakaedr, Скинь скрипт, посмотрю.

[Dodakaedr]

TryRooM, сейчас немного доработаю и скину

[TryRooM]

Dodakaedr,
закоментируй DisableFinishedPage=yes

[Dodakaedr]

закоментируй DisableFinishedPage=yes »
Сделать видимой?

[TryRooM]

Dodakaedr, http://rghost.ru/54006194 пример от vit56 картинки
закоментируй и заработает vbs