[Dodakaedr]

Так папки удалятся или нет »

Возьмите и проверьте. Но ярлыки если создавались инсталлятором, то они и будут удалены созданным деинсталлятором.

[ZVSRus]

В секции Run есть ссылка на запуск интернет страницы через чекбокс на финишной странице.
Как прикрутить эту ссылку к кнопкам на диалоговом окне вместо финишной страницы. (FinishedPage) пропущена.

Код:

[Run]
 Filename: "http://www.obviousidea.com/windows-software/light-image-resizer/how-to-resize-a-photo/"; Description: "{cm:LaunchGuide,Light Image Resizer 4}"; MinVersion: 0.0,5.0; Flags: shellexec postinstall skipifsilent nowait

[Dodakaedr]

Как прикрутить эту ссылку к кнопкам на диалоговом окне вместо финишной страницы »

Создайте задачу в tasks либо отдельно чекбокс и открывайте ссылку по окончанию установки.

Так

Код:

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

[Code]
var
LinkProg: TNewCheckBox;

procedure InitializeWizard();
begin
  LinkProg := TNewCheckBox.Create(WizardForm);
  LinkProg.Parent := WizardForm.SelectDirPage;
  LinkProg.Caption := 'Посетить сайт программы';
  LinkProg.SetBounds(ScaleX(1), ScaleY(WizardForm.DirEdit.Top + 25), ScaleX(148), ScaleY(20));
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
r: integer;
begin
  if CurStep = ssDone then
  begin
    MsgBox('Установка завершена', mbInformation, MB_OK);
    if LinkProg.Checked then
    ShellExec('', 'http://www.obviousidea.com/windows-software/light-image-resizer/how-to-resize-a-photo/', '','', SW_SHOW, ewNoWait, r);
  end;
end;

Либо так

Код:

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

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
r: integer;
begin
  if CurStep = ssDone then
  begin
    if MsgBox('Установка завершена!'+#13#10'Посетить сайт программы?', mbInformation, MB_YESNO) = IDYES then
      ShellExec('', 'http://www.obviousidea.com/windows-software/light-image-resizer/how-to-resize-a-photo/', '','', SW_SHOW, ewNoWait, r);
  end;
end;

Кнопку на диалоговом окне, насколько я знаю не создать.

[vadjliss]

парни помогите или подскажите скрипт

[ZVSRus]

Кнопку на диалоговом окне, насколько я знаю не создать.

Оба скрипта работают. Все хорошо.
Но хотелось бы запуск страницы прикрутить к скрипту ниже.
Прикрутить к чекбоксу.
Скрипт

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

Код:

//#include "botva2.iss"

[Setup]
AppName=ACDSee 5.0 Power Pack
AppVersion=ACDSee 5.0 Power Pack
DefaultDirName={pf}\ACD Systems
DisableFinishedPage=yes
OutputDir=.
UsePreviousAppDir=no
UsePreviousGroup=no
//SetupIconFile=icon.ico

[files]
//Source: "b2p.dll"; DestDir: "{tmp}"; Flags: dontcopy
//Source: "botva2.dll"; DestDir: "{tmp}"; Flags: dontcopy
//Source: "Icon.png"; DestDir: "{tmp}"; Flags: dontcopy

[ Code]
//function InitializeSetup(): Boolean;
//begin
//if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
//if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
//if not FileExists(ExpandConstant('{tmp}\icon.png')) then ExtractTemporaryFile('icon.png');
//Result := True;
//end;

function ShowFinishedForm(): Boolean;
var
  FinishedForm: TSetupForm;
begin
  FinishedForm := CreateCustomForm;
  FinishedForm.Position:=poScreenCenter;
try
  FinishedForm.ClientWidth := ScaleX(310);
  FinishedForm.ClientHeight := ScaleY(133);
  FinishedForm.BorderStyle := bsSingle;
  FinishedForm.BorderIcons := [biSystemMenu];
  FinishedForm.Caption := 'Установка — ACDSee 5.0 Power Pack';
  FinishedForm.CenterInsideControl(WizardForm, False);

//  ImgLoad(FinishedForm.Handle, ExpandConstant('{tmp}\icon.png'), ScaleX(20), ScaleY(22), ScaleX(40), ScaleY(40), True, False);
//  ImgApplyChanges(FinishedForm.Handle);

  with TNewButton.Create(FinishedForm) do
  begin
    Parent := FinishedForm;
    SetBounds(ScaleX(110), ScaleY(100), ScaleX(90), ScaleY(25));
    ModalResult := mrYes;
    Caption := SetupMessage(msgButtonYes);
  end;
  with TNewStaticText.Create(FinishedForm) do
  begin
    Parent:= FinishedForm;
    Caption:='Все готово, приятного пользования!'+ #13#10 +
    ''+ #13#10 +
    'Запустить программу сейчас?';
    Left:=70;
    Top:=20;
    Font.Name:= 'Tahoma';
    Font.Size:= 9;
    Font.Color:=clBlack;;
  end;
  with TNewButton.Create(FinishedForm) do
  begin
    Parent := FinishedForm;
    SetBounds(ScaleX(210), ScaleY(100), ScaleX(90), ScaleY(25));
    ModalResult := mrNo;
    Caption := SetupMessage(msgButtonNo);
  end;
  with TNewCheckBox.Create(FinishedForm) do
  begin
   Parent := FinishedForm;
   Caption := 'Посетить сайт программы';
   SetBounds(ScaleX(10), ScaleY(70), ScaleX(150), ScaleY(25));
  end;

    Result := (FinishedForm.ShowModal = mrYes);
      finally
    FinishedForm.Free;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: Integer;
//r: integer;
begin
  case CurStep of
  ssDone:
  if ShowFinishedForm then
  Exec(ExpandConstant('{pf}\ArtIcons Pro\ARTICONS.exe'), '', '', SW_SHOW, ewNoWait, ResultCode);
//  if MsgBox('Посетить сайт программы?', mbInformation, MB_YESNO) = IDYES then
//  ShellExec('http://www.obviousidea.com/windows-software/light-image-resizer/how-to-resize-a-photo/', '','', SW_SHOW, ewNoWait, r);
  end;
end;

[Nordek]

помогите или подскажите скрипт »

OuterNotebook:

[vadjliss]

мне нужно саму рамку увеличить не внутриннию а наружную

[nik1967]

vadjliss, кликаешь на любое место WizardForm и растягиваешь, как тебе надо.

[vadjliss]

пишет что блокировано

[Nordek]

мне нужно саму рамку увеличить не внутриннию а наружную »

пишет что блокировано »

На снимке вы показываете именно то:


что я вам ответил в #1176 сообщении.

Или, как вы собрались увеличивать OuterNotebook, если WizardForm не увеличена? Т.е у WizardForm не хватает области для дальнейшего растягивания, чтобы растянуть OuterNotebook нужно сначала растянуть WizardForm:


а уже тогда растягивать OuterNotebook:


Или вы на столько изменили форму, что невозможно определить что вам нужно, и в действительности вам нужно растянуть InnerNotebook?
InnerNotebook: