[YURSHAT]

Народ, а как правильно перечислить страницы
Parent := (CurPageID=wpSelectProgramGroup),(CurPageID=wpWelcome) так не пашет

[A1EXXX]

YURSHAT, это ты по задумке Комбата панель на панель накладываешь для прозрачности в Unicode-версии??

[YURSHAT]

A1EXXX, да не, делаю панель с использованием фотошопа. Кстати на вопросик не ответите?
P.S.
По задумке комбата панель получается полностью прозрачной, а нам надо полупрозрачность

[A1EXXX]

YURSHAT, да я сам особо не вникал в те прозрачности... А просто Parent := WizardForm не покатит?

[YURSHAT]

А просто Parent := WizardForm не покатит? »

Не так не катит

[lmiol]

вот новая трабла)))
как сделать чтобы если виста то файлы автоматом в одну папку а если хр то в другую инсталились

[МИШАНЧИК]

Serega, Habetdin, большое вам спасибо!

[Kilya]

скрипт для возможности - установить и распаковать программу! как у NOD32 Update Viewer

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=userdocs:My Program.
AppID=NAV

[.Code.]
var
  InstType, UnpackType: TRadioButton;

procedure InitializeWizard();
var
  TypeText: TNewStaticText;
begin
  TypeText := TNewStaticText.Create(WizardForm);
  with TypeText do
  begin
    Left := WizardForm.WelcomeLabel2.Left;
    Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - WizardForm.WelcomeLabel2.Height div 4 - ScaleY(20);
    Width := WizardForm.WelcomeLabel2.Width div 2;
    Caption := 'Тип установки:';
    Parent := WizardForm.WelcomePage;
  end;

  InstType := TRadioButton.Create(WizardForm);
  with InstType do
  begin
    Left := WizardForm.WelcomeLabel2.Left + ScaleX(20);
    Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - WizardForm.WelcomeLabel2.Height div 4;
    Width := WizardForm.WelcomeLabel2.Width div 2;
    Caption := 'Установить';
    Checked := True;
    Parent := WizardForm.WelcomePage;
  end;

  UnpackType := TRadioButton.Create(WizardForm);
  with UnpackType do
  begin
    Left := WizardForm.WelcomeLabel2.Left + ScaleX(20);
    Top := InstType.Top + InstType.Height + ScaleY(3);
    Width := WizardForm.WelcomeLabel2.Width div 2;
    Caption := 'Распаковать файлы';
    Parent := WizardForm.WelcomePage;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
    if UnpackType.Checked then
    begin
      // Если отмечено "Распаковать файлы"
      // Удаляются файлы деинсталлятора и реестра.
      DeleteFile(ExpandConstant('{uninstallexe}'));
      DeleteFile(ExpandConstant('{app}\unins000.dat'));
      RegDeleteKeyIncludingSubkeys(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\NAV_is1');
    end;
end;

в єтом коде все прекрасно, но...
Если до этого установка производилась и были созданы ярлыки в СтартМеню - Все программы
то при распаковке их желательно удалить тоже, уже бьюсь бьюсь - а удалить их не получается....
Помогите!!!
Интересует єта ветка (ProgramData\Microsoft\Windows\Start Menu)

[МИШАНЧИК]

Подскажите пожалуйста!
Как удалить определённые ветви реестра перед началом инсталяции?

[ADremLIN]

Отвечаю на свой вопрос сам.

Цитировать »

Пример перехвата события "выбор компонента - галочка" на странице выбора компонентов:

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

Код:

[_Code]
var
  ComponentsOnClickCheck: TNotifyEvent; //Переменная для хранения адреса старого обработчика

procedure InitializeWizard;
begin
  { Save global default OnClickCheck procedure}
  ComponentsOnClickCheck := WizardForm.ComponentsList.OnClickCheck;  //Сохраняем адрес старого обработчика
end;

// Свой обработчик OnClickCheck:
procedure ComponentsClickCheck(Sender: TObject);
var
  ItemIndex, AppIndex, RequireIndex: Integer;
begin
  ComponentsOnClickCheck(Sender); //Вызываем старый обработчик (Inherited). Он выполняет действия по-умолчанию...
  ItemIndex := WizardForm.ComponentsList.ItemIndex; //Индекс "кликнутого" компонента (в этом примере не используется)

  {Check require for 'Application™'}  // Проверяем зависимости для Приложения
  AppIndex := WizardForm.ComponentsList.Items.IndexOf('Application™'); //Индекс компонента-приложения подлежащего проверке

  //Если он (компонент-приложение подлежащий проверке) "чеканутый"
  if (WizardForm.ComponentsList.Checked[AppIndex]) then begin // то:
    RequireIndex := WizardForm.ComponentsList.Items.IndexOf('Engine™'); // Определяем индекс требуемого компонента

    //Если он (требуемый компонент) "не чеканутый", то:
    if not WizardForm.ComponentsList.Checked[RequireIndex] then
    begin
      MsgBox('Engine™ engine will enabled: Require for Application™.', mbInformation, 1);// Сообщение для пользователя об этом
      WizardForm.ComponentsList.CheckItem(RequireIndex, coCheck); // Включаем компонент
    end;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectComponents then
    WizardForm.ComponentsList.OnClickCheck := @ComponentsClickCheck; //Подменяем обработчик на свой
end;

Может кому-то пригодится...