[BlackSelf]

p3rf3ct1c, путь к ProgramData в Висте и семерке обозначает константа {commonappdata}, то есть в твоем случае лучше написать так:

Код:

...................................
      //Проверяем присутствие папки после удаления
      If DirExists(ExpandConstant('{commonappdata}\2DBoy\WorldOfGoo')) then
...................................

[p3rf3ct1c]

BlackSelf,
Спасибо.

А вы можете подсказать почему у меня в Unpacker'е кнопки не работают, кроме кнопки "Открыть"?

[Unsane]

Вешаю обработчик на изменение комбобокса "тип установки":

PHP код:

WizardForm.TypesCombo.OnChange := @TypesComboOnChange; 

Перестает отрабатываться смена типов (компоненты не изменяются при изменении типа установки). Без обработчика все нормально. Как можно обойти проблему?

[Serega]

Перестает отрабатываться смена типов (компоненты не изменяются при изменении типа установки). Без обработчика все нормально. »

Приведите пример, как вы делаете. Хотя теоретически, всё правильно, т.е. всё зависит от того, что вы пишите в процедуре TypesComboOnChange.
Задав свою процедуру вы переопределяете стандартную смену ComboBox'а, заданного по умолчанию.

[Unsane]

От содержимого обработчика вообще ничего не зависит. Повесил пустой обработчик - 0 реакции.

PHP код:

procedure TypesComboOnChangeT(Sender: TObject);  begin  end;



procedure InitializeWizard();

begin

  WizardForm.TypesCombo.OnChange := @TypesComboOnChangeT;

end; 

Есть ли возможность вызвать эту стандартную процедуру или сделать ее эмуляцию?

з.ы. еще заметил, что из-за этого косяка не отрабатывается установка некоторых компонентов.

[Serega]

Есть ли возможность вызвать эту стандартную процедуру или сделать ее эмуляцию? »

Вызвать стандартную - нет, придётся прописывать всё в ручную, а это...

заметил, что из-за этого косяка не отрабатывается установка некоторых компонентов. »

такое скорей всего вряд ли, по крайней мере я не думаю, чтоб изменение в стандартной процедуре TypesCombo.OnChange, как-то влияло на саму установку.

А что вы вообще хотите задать в TypesComboOnChangeT, просто может это можно решить стандартными способами? Объясните, что вы хотите увидеть?

[Unsane]

Итак, некоторое время назад, я писал здесь вопрос по поводу выбора языка.
Я написал функцию, которая при показе формы "wpSelectComponents" перебирает компоненты и "насильно" выделяет "радиобатон" того языка, который был выбран как язык инсталлятора.
Есть в этом подходе косяк - при смене типа установки язык сбрасывается в "первоначальное" (т.е. то, каким бы он был без моего программного вмешательства) положение.
Вот на изменение комбобокса "тип установки" хочу повесить процедура проверки, которая будет возвращать нужный язык.

[Serega]

Итак, некоторое время назад, я писал здесь вопрос по поводу выбора языка. Я написал функцию, которая при показе формы "wpSelectComponents" перебирает компоненты и "насильно" выделяет "радиобатон" того языка, который был выбран как язык инсталлятора. »

Да, помню, было такое... Я подумал, что вы уже решили эту задачу...
Попробуйте такой вариант

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
SolidCompression=yes
;ComponentsListTVStyle=true

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
Name: eng; MessagesFile: compiler:Languages\English.isl

[Types]
Name: full; Description: Полная установка
Name: custom; Description: Выборочная установка; Flags: iscustom

[Components]
Name: a; Description: Моя программа™; Types: full custom
Name: a\a; Description: Руководство пользователя; Types: full
Name: a\a\a; Description: Русский; Flags: exclusive
Name: a\a\b; Description: English; Flags: exclusive
Name: a\b; Description: Справка; Types: full

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Components: a
Source: compiler:Examples\Readme-ru.txt; DestDir: {app}; Components: a\a\a
Source: compiler:Examples\Readme-en.txt; DestDir: {app}; Components: a\a\b
Source: compiler:Examples\MyProg.chm; DestDir: {app}; Components: a\b

[_Code]
procedure InitializeWizard;
begin
  if ActiveLanguage = 'rus' then
  WizardForm.ComponentsList.Checked[2]:= True else
  WizardForm.ComponentsList.Checked[3]:= True;
end;

[Unsane]

Интегрировал Ваш пример в скрипт - не работает. Запустил в новом - работает.
Начал разбираться и нашел корень ошибки - невнимательность.
Выделение прыгало из-за следующего:

Код:

Name: language\english; Description: {cm:EnglishLanguage}; Types: type1 type2 type3; Flags: exclusive  
Name: language\russian; Description: {cm:RussianLanguage}; Types: type1 type2 type3; Flags: exclusive

Забыл убрать, когда копировал.
Мой способ тоже работает, но ввиду громоздкости оставлю Ваш.

Спасибо

[Potursak]

Какой камандой можно автоматически запустить файл после его установки?