[ZVSRus]

Dodakaedr, А можно поподробнее

[vint56]

ZVSRus,

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

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

[code]
var
GroupBox1,GroupBox2: TNewGroupBox;

procedure InitializeWizard();
begin
GroupBox1 := TNewGroupBox.Create(WizardForm);
with GroupBox1 do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(75);
Width := ScaleX(417);
Height := ScaleY(65);
end;
GroupBox2 := TNewGroupBox.Create(WizardForm);
with GroupBox2 do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(150);
Width := ScaleX(417);
Height := ScaleY(65);
end;
with WizardForm.DirEdit do
begin
Left := ScaleX(10);
Top := ScaleY(20);
Width := ScaleX(310);
Parent := GroupBox1;
end;
with WizardForm.DirBrowseButton do
begin
Left := ScaleX(330);
Top := ScaleY(20);
Parent := GroupBox1;
end;
with WizardForm.GroupEdit do
begin
Left := ScaleX(10);
Top := ScaleY(20);
Width := ScaleX(310);
Parent := GroupBox2;
end;
with WizardForm.GroupBrowseButton do
begin
Top := ScaleY(20);
Left := ScaleX(330);
Parent := GroupBox2;
end;
end;

[ZVSRus]

Ребята помогите пожалуйста.
Скрипт

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.
UsePreviousAppDir=no
UsePreviousGroup=no

[Code ]
var
 Component: TWizardPage;

  Panel1: TPanel;
  Bevel1: TBevel;

  InstallerGroupBox: TNewGroupBox;
  Installer: TNewRadioButton;
  Portable: TNewRadioButton;

  IconsGroupBox: TNewGroupBox;
  DesktopIcon: TNewCheckBox;
  PuskIcon: TNewCheckBox;
  PanelZadach: TNewCheckBox;
  PanelPusk: TNewCheckBox;

  function InstallerCheck: Boolean;
 begin
   Result := Installer.Checked;
 end;

 function PortableCheck: Boolean;
 begin
   Result := Portable.Checked;
 end;

 function DesktopIconCheck: Boolean;
 begin
   Result:= DesktopIcon.Checked;
 end;

 function PuskIconCheck: Boolean;
 begin
   Result:= PuskIcon.Checked;
 end;

function PanelZadachCheck: Boolean;
 begin
   Result:= PanelZadach.Checked;
 end;

 procedure CompClick(Sender: TObject);
 begin
  case TNewRadioButton(Sender) of
   Portable:
  begin
   DesktopIcon.Checked:=False;
   DesktopIcon.Enabled:= DesktopIcon.Checked;
   PuskIcon.Checked:=False;
   PuskIcon.Enabled:= PuskIcon.Checked;
   PanelZadach.Checked:=False;
   PanelZadach.Enabled:= PanelZadach.Checked;
   PanelPusk.Checked:=False;
   PanelPusk.Enabled:= PanelPusk.Checked;
  end;

   Installer:                                                                           
  begin
   DesktopIcon.Checked:=True;
   DesktopIcon.Enabled:= DesktopIcon.Checked;
   PuskIcon.Checked:=True;
   PuskIcon.Enabled:= PuskIcon.Checked;
   PanelZadach.Checked:=true;
   PanelZadach.Enabled:= PanelZadach.Checked;
   PanelPusk.Checked:=True;
   PanelPusk.Enabled:= PanelPusk.Checked;
  end;
 end;
end;

procedure InitializeWizard();
begin
  Component := CreateCustomPage(wpWelcome, 'Выбор типа установки', '...');

  with WizardForm.InnerNotebook do
  begin
    Left := ScaleX(20);
    Top := ScaleY(60);
    Width := ScaleX(457);
    Height := ScaleY(250);
  end;

    Panel1 := TPanel.Create(WizardForm);
  with Panel1 do
  begin
    Parent := Component.Surface;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(457);
    Height := ScaleY(250);
  end;

  Bevel1 := TBevel.Create(WizardForm);
  with Bevel1 do
  begin
    Parent := Panel1;
    Left := ScaleX(5);
    Top := ScaleY(5);
    Width := ScaleX(447);
    Height := ScaleY(240);
  end;

  InstallerGroupBox := TNewGroupBox.Create(WizardForm);
  with InstallerGroupBox do
  begin
    Parent := Panel1;
    Left := ScaleX(10);
    Top := ScaleY(8);
    Width := ScaleX(210);
    Height := ScaleY(64);
    Caption := 'Тип установки:';
  end;

  Installer := TNewRadioButton.Create(WizardForm);
  with Installer do
  begin
    Parent := InstallerGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(14);
    Width := ScaleX(195);
    Height := ScaleY(17);
    Caption := 'Установка обычной версии';
    Checked := True
    OnClick:=@CompClick;
  end;

  Portable := TNewRadioButton.Create(WizardForm);
  with Portable do
  begin
    Parent := InstallerGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(39);
    Width := ScaleX(195);
    Height := ScaleY(17);
    Caption := 'Распаковка портативной версии';
    OnClick:=@CompClick;
  end;

  IconsGroupBox := TNewGroupBox.Create(WizardForm);
  with IconsGroupBox do
  begin
    Parent := Panel1;
    Left := ScaleX(10);
    Top := ScaleY(80);
    Width := ScaleX(210);
    Height := ScaleY(114);
    Caption := 'Компоненты:';
  end;

  DesktopIcon := TNewCheckBox.Create(WizardForm);
  with DesktopIcon do
  begin
    Parent := IconsGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(14);
    Width := ScaleX(195);
    Height := ScaleY(17);
    Caption := 'Ярлык на рабочем столе';
    Checked := True
  end;

  PuskIcon := TNewCheckBox.Create(WizardForm);
  with PuskIcon do
  begin
    Parent := IconsGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(39);
    Width := ScaleX(195);
    Height := ScaleY(17);
    Caption := 'Ярлык в меню Пуск';
    Checked := True
  end;

  PanelZadach := TNewCheckBox.Create(WizardForm);
  with PanelZadach do
  begin
    Parent := IconsGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(64);
    Width := ScaleX(195);
    Height := ScaleY(17);
    Caption := 'Закрепить на панели задач';
    Checked := False
  end;

  PanelPusk := TNewCheckBox.Create(WizardForm);
  with PanelPusk do
  begin
    Parent := IconsGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(89);
    Width := ScaleX(195);
    Height := ScaleY(17);
    Caption := 'Закрепить в меню Пуск';
    Checked := False
 end;
end;

Как сделать что-бы при возвращении с Portable распаковки на Installer установку
два нижних чекбокса были видны но галочки не стояли.
Нужно что-то поменять, не знаю что.

[TryRooM]

ZVSRus, Так

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

Код:

 Installer:
  begin
   DesktopIcon.Checked:=True;
   DesktopIcon.Enabled:= DesktopIcon.Checked;
   PuskIcon.Checked:=True;
   PuskIcon.Enabled:= PuskIcon.Checked;
   PanelZadach.Checked:=False;
   PanelZadach.Enabled:=True;
   PanelPusk.Checked:=False;
   PanelPusk.Enabled:= True;
  end;
 end;
end;

[habib2302]

помогите переместить на задний план NewGroupBox1

NewGroupBox1

Код:

[Code]
var
  NewGroupBox1: TNewGroupBox;

procedure InitializeWizard;
begin
  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(326);
    Top := ScaleY(128);
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(16);
    Top := ScaleY(129);
    Width := ScaleX(300);
  end;

  { NewGroupBox1 }
  NewGroupBox1 := TNewGroupBox.Create(WizardForm);
  with NewGroupBox1 do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(0);
    Top := ScaleY(104);
    Width := ScaleX(417);
    Height := ScaleY(57);
    Caption := 'NewGroupBox1';
  end;

  NewGroupBox1.TabOrder := 5;
end;

Мой скрипт

[TryRooM]

habib2302,
Пробуйте
http://rghost.ru/8td6vQNGj

[ZVSRus]

помогите переместить на задний план NewGroupBox1

Если Вы имеете ввиду NewCroupBox1 сделать подложкой под стандартные диалоги,
то чуть выше скрипт от vint56

[ZVSRus]

Всем Доброе время суток.
Может кто знает, как в оригинальный INNO установщик запихнуть DLL,ку,
и прописать ее в реестре, что-бы при деинсталляции она удалялась.

[vadjliss]

парни что сделать если программа больше 5 гигов,а то выдаёт ошибку
я в setap прописал DiskSliceSize=1987570657
результат нулевой

[kotyarko@fb]

vadjliss,

Код:

[Setup]
DiskSpanning=yes