[diman_21Ru]

Dodakaedr, На файлы которые будут

[Dodakaedr]

diman_21Ru, У вас в скрипте используется функция IsComponent(CompIndex: Integer): Boolean; это ваша чекова функция которая работает по индексу. Расчет индекса идет с первого компонента и начинается с 0 тоесть:

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

Код:

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

[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: {win}\Help\*; DestDir: {app}; Check: IsComponent(0); Flags: external recursesubdirs
Source: {win}\Help\*; DestDir: {app}2; Check: IsComponent(1);  Flags: external recursesubdirs

[ Code]
Var
ComponentsList: TNewCheckListBox;

function IsComponent(CompIndex: Integer): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to ComponentsList.ItemCount - 1 do
  begin
    if CompIndex <= (ComponentsList.ItemCount - 1) then
      Result := ComponentsList.Checked[CompIndex];
  end;
end;

procedure InitializeWizard();
begin
ComponentsList := TNewCheckListBox.Create(WizardForm);
    with ComponentsList do
    begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(190), ScaleY(200), ScaleX(107), ScaleY(100));
    AddCheckBox('Версия', '', 0, True, True, False, True, nil); //индекс №0
    AddCheckBox('Озвучка', '', 0, True, True, False, True, nil); //индекс №1
    AddCheckBox('Russian', '', 0, True, True, False, True, nil); //индекс №2
    AddCheckBox('English', '', 0, True, True, False, True, nil); //индекс №3 и так далее...
    //BorderStyle := bsNone;
    end;
with WizardForm.WelcomeLabel2 do
  begin
    Height := ScaleY(111);
  end;
end;

[diman_21Ru]

Dodakaedr, Не правильно что ли указал путь ,проверьте пожалуйста !

Source: {win}\Mods\Программы\Отображение облаков\*; DestDir: {app}; Check: IsComponent(0); Flags: external recursesubdirs

AddCheckBox('Отображение облаков', '', 0, True, True, False, True, nil); //индекс №0

[Dodakaedr]

Не правильно что ли указал путь ,проверьте пожалуйста ! »

{win} - это папка Windows. Замените её на полный путь к папке Mods и укажите флаг: Flags: ignoreversion recursesubdirs createallsubdirs

[habib2302]

Всем привет. Как добавить Radio Button 1 Изменить/Обновить и 2 Удалить и присвоить к ним задания

[Kashtan007]

Всем привет ребята. Возник такой вопрос...
Как сделать это:
Мне нужно, чтобы на странице компонентов, справа от компонента был допустим значок динамика и при его нажатии воспроизводился звук.
Т.е. допустим я листаю компоненты:
Прога 1
Прога 2
Прога 3
Возле проги 3 я нажимаю на маленький значок динамика и мне 1 раз воспроизводится звук заданный для проги 3.
И так к каждому компоненту. Заранее спасибо за помощь!

P.S. Допустим у меня есть папка audio в папке res, и папка res_mods. В установщике я устанавливаю компоненты в res_mods, как сделать так, чтобы при выборе определенного компонента папка audio из папки res копировалась в папку res_mods?

[diman_21Ru]

Dodakaedr, Вроде все указал верно а обьем файла не пишет можно как то включить ?

[diman_21Ru]

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

AddCheckBox('Отображение облаков', '', 0, True, True, False, True, nil); //индекс №0

Source:"Mods\Программы\Отображение облаков\*"; DestDir: "{app}"; Check: IsComponent(0); Flags: ignoreversion recursesubdirs createallsubdirs

[Slivvki]

Ктонибудь помогите! Вот такая ботва!
http://hkar.ru/tv46
И еще как избежать зависания при запуске (в панеле запуска внизу появляется, пото через 4 сек отвисает)

[Dodakaedr]

убрать галочку на мод »

AddCheckBox('Отображение облаков', '', 0, False, True, False, True, nil); //индекс №0

а размер мода не показывает »

и не будет, так как используется чекова функция (Check: IsComponent(0)) или что вы имели ввиду? Где не показывает? Если в компонент листе то можно так указать:

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

Код:

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

[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: {win}\Help\*; DestDir: {app}; Check: IsComponent(0); Flags: external recursesubdirs
Source: {win}\Help\*; DestDir: {app}2; Check: IsComponent(1);  Flags: external recursesubdirs

[ Code]
Var
ComponentsList: TNewCheckListBox;

function IsComponent(CompIndex: Integer): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to ComponentsList.ItemCount - 1 do
  begin
    if CompIndex <= (ComponentsList.ItemCount - 1) then
      Result := ComponentsList.Checked[CompIndex];
  end;
end;

procedure InitializeWizard();
begin
ComponentsList := TNewCheckListBox.Create(WizardForm);
    with ComponentsList do
    begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(190), ScaleY(200), ScaleX(107), ScaleY(100));
    AddCheckBox('Mod1', '12 mb', 0, False, True, False, True, nil); //индекс №0
    AddCheckBox('Mod2', '9 mb', 0, True, True, False, True, nil); //индекс №1
    AddCheckBox('Mod3', '2 mb', 0, False, True, False, True, nil); //индекс №2
    AddCheckBox('Mod4', '0,5 mb', 0, True, True, False, True, nil); //индекс №3 и так далее...
    //BorderStyle := bsNone;
    end;
with WizardForm.WelcomeLabel2 do
  begin
    Height := ScaleY(111);
  end;
end;

И еще как избежать зависания при запуске (в панеле запуска внизу появляется, пото через 4 сек отвисает) »

Скрипт покажите....