[Gnom_aka_Lexander]

R.i.m.s.k.y., Скрипт еще рано, он тоже постоянно оптимизируется, могу выложить отдельно, если кому интересно, а регать лучше на родной все таки, хотя можно отдельный вопрос сделать - ставить оба редактора или только расширенный, но думаю, тоже не стоит, лично я предпочитаю работать в родном, а в расширенном удобно куски кода получать готовые и страницы добавлять, он, кстати с успехом заменяет IS From Designer.
В общем, нужно мнение не одного-двух человек, а десятка, хотябы. А то все качают и молчат..

[R.i.m.s.k.y.]

ожно отдельный вопрос сделать - ставить оба редактора или только расширенный »

+1
Лично я предпочитаю работать в расширенном - чего метаться туда-сюда-обратно

[Gnom_aka_Lexander]

R.i.m.s.k.y., Сделаю в следующем обновлении просто две галки - так три варианта будет: простой, расширенный, оба

[_ToR4OK_]

Подскажите пожалуйста, как менять местами страницы в инстале? Заранее спасибо

[Gnom_aka_Lexander]

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

[serg aka lain]

как сделать такую доп.старницу с двумя чекбоксами? »

На скрине не чекбоксы, а радиокнопки.
А конкретно по вопросу

пример

Код:

[Setup]
AppName=My Program  
AppVerName=My Program
DefaultDirName={sd}\My Program
OutputDir=.
OutputBaseFilename=test

[CustomMessages]
HeaderLabelPage=Выберите тип установки
MyRadioCaption_1=Обычная установка
MyRadioCaption_2=Портативная установка

[code]
var
  MyNewPage: TWizardPage;
  MyRadioBtn_1, MyRadioBtn_2: TRadioButton;

procedure GetMyNewPage();
begin
  MyNewPage := CreateCustomPage(wpWelcome, 
    ExpandConstant('{cm:HeaderLabelPage}'), '');

  MyRadioBtn_1 := TRadioButton.Create(WizardForm);
  with MyRadioBtn_1 do
  begin
    Top := ScaleY(50);
    Width := ScaleX(150);
    Height := ScaleY(13);
    Caption := ExpandConstant('{cm:MyRadioCaption_1}');
    Checked := True;
    Parent := MyNewPage.Surface;
  end;

  MyRadioBtn_2 := TRadioButton.Create(WizardForm);
  with MyRadioBtn_2 do
  begin
    Top := ScaleY(120);
    Width := ScaleX(150);
    Height := ScaleY(13);
    Caption := ExpandConstant('{cm:MyRadioCaption_2}');
    Parent := MyNewPage.Surface;
  end;
end;

procedure InitializeWizard();
begin
  GetMyNewPage();
end;

[_ToR4OK_]

Подскажите пожалуйста, как менять местами страницы в инстале? Заранее спасибо

Вопрос решен )

[serg aka lain]

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

Если очень хочется, то можно. Вот есть прецедент

[Baw17]

как сделать чтобы при установке Бэкапилась ветка реестра, и потом в неё вносились изменения а при деинсталляции возвращались в исходное положение?

[R.i.m.s.k.y.]

как сделать чтобы при установке Бэкапилась ветка реестра, и потом в неё вносились изменения а при деинсталляции возвращались в исходное положение? »

Код:

[_Code]

procedure CurStepChanged(CurStep: TSetupStep);
var
  res, i, k: Integer;
  reg0, reg, RegEdit: string;
  Key: TArrayOfString;
begin
if CurStep=ssDone then begin
  RegEdit:= ExpandConstant('{sys}\reg.exe');
  reg0:= ExpandConstant('{pf}\InstallShield Installation Information\$...$\');
  Key:= ['HKLM\SOFTWARE\GNU',
         'HKCR\CLSID\{62CE7E72-4C71-4D20-B15D-452831A87D9D}',
         'HKEY_CURRENT_USER\Software\KMPlayer'
         ];
  for i:= 0 to GetArrayLength(Key)-1 do begin
    reg := reg0 + IntToStr(i) + '.reg';
    if not FileExists(reg) then begin Exec(RegEdit, ' export ' + AddQuotes(Key[i]) + ' ' + AddQuotes(reg), ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilTerminated, res);
    end;
end;
end;


procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
reg, reg0,RegEdit: string;
res,i: integer;
begin
if CurUninstallStep = usUninstall then begin
RegEdit:= ExpandConstant('{sys}\reg.exe');
reg0:= ExpandConstant('{pf}\InstallShield Installation Information\$...$\\');
  for i:= 0 to 3 do begin
     reg:= reg0 + IntToStr(i) + '.reg';
     if FileExists(reg) = True then Exec(RegEdit, ' import ' + AddQuotes(reg),ExpandConstant('{sys}'),SW_HIDE,ewWaitUntilTerminated,res);
  end;
end;
end;

Код идейно рабочий, ну может где-то пропустил объявление переменной или end.