Скрипты Inno Setup. Помощь и советы [часть 7]

[Dodakaedr]

Все так же одна картинка,может что-то не то вписываю ? »
Вы проверили мой скрипт, который скинул??? Должно быть как на скрине...

[Dinvin4ester]

Dodakaedr,
Да,что-то не так и выходит эта ошибка - http://i61.fastpic.ru/big/2014/0615/22/02e41bfddcf3d3f16cbedfa4145e6222.png Указываешь любую папку и не пускает дальше.

[Dodakaedr]

Указываешь любую папку и не пускает дальше. »
Эта ошибка у вас была, вы мне с ней давали скрипт. Разбираться не стал... Нужно выбирать уже существующею папку.

Dinvin4ester, Исправление ошибки: в секции [Setup] удалите пробел в строке DefaultGroupName=Games \{#app}.

[Dinvin4ester]

Dodakaedr,
Ага. все ясно мой косяк, и так я понимаю могу добавлять теперь в скрипт компоненты и оно будет ставить ? И еще не подскажите ,прогресс бар двойной,нельзя как-то на 1 перейти или стандартный поставить ? Если не использовать сторонние архиваторы,то его вовсе не видно.

[Dodakaedr]

и так я понимаю могу добавлять теперь в скрипт компоненты и оно будет ставить »
Через секцию [Components] не прокатит, нужно все вручную указывать...,нельзя как-то на 1 перейти или стандартный поставить ? »
Надо посмотреть....

[Dinvin4ester]

Dodakaedr,
Можете хоть набросок кинуть как вручную делать..? Или что-то типо этого ?

Source: "D:\Games\Buh\ALI213\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Buf\ru;
Source: "D:\Games\Buf\Reloaded\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Buf\en;

[Dodakaedr]

Можете хоть набросок кинуть как вручную делать..? Или что-то типо этого ? »
Уже не сегодня...

[Dinvin4ester]

Dodakaedr,
Буду ждать.

[Dodakaedr]

Source: "D:\Games\Buh\ALI213\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Buf\ru;
Source: "D:\Games\Buf\Reloaded\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Buf\en; »
Попробуйте так: Source: "D:\Games\Buh\ALI213\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: RuCheck;
Source: "D:\Games\Buf\Reloaded\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: EnCheck;

[Dinvin4ester]

Dodakaedr,
Оооо,прям как надо.Спасибо оромное за все.Осталось только с прогресс баром проблемку решить..

[Dodakaedr]

с прогресс баром проблемку решить.. »
Замените свой модуль IsDone.iss на этот IsDone.iss (http://rghost.ru/private/56399073/b6ff34d7173e386c04d0ba4dc191ed60)

[Dinvin4ester]

Dodakaedr,
Заменил,но только не видно его http://i61.fastpic.ru/big/2014/0616/56/712ede205b34d6bc7e15c35b96446056.png ,как я писал ранее без сторонних архиваторов он не идет.

[Dodakaedr]

,как я писал ранее без сторонних архиваторов он не идет. »
У вас используются какие-то архивы? isDone используете?

[Dinvin4ester]

Dodakaedr,
Неа,только инно.

[Dodakaedr]

Неа,только инно. »
Вот Скрипт (http://rghost.ru/private/56412551/5b460a05950c2185ec9df77d16c049e2) Модули PB.iss и IsDone.iss не нужны. В скрипте увидите.

[Dinvin4ester]

Dodakaedr,
Гуру , спасибо вам. Все как я и хотел...

[diman_21Ru]

Dodakaedr, а как тут поставить чисто галочки без кружочков

ComponentsList := TNewCheckListBox.Create(WizardForm);
with ComponentsList do
begin
Parent := WizardForm;
SetBounds(ScaleX(120), ScaleY(545), ScaleX(417), ScaleY(100));
AddCheckBox('Версия', '', 0, True, False, False, True, nil);
AddCheckBox('Озвучка', '', 0, True, False, False, True, nil);
AddRadioButton('Russian', '', 1, True, True, nil);
AddRadioButton('English', '', 1, False, True, nil);
end;

[Dodakaedr]

diman_21Ru, [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}; Flags: external recursesubdirs

[ Code]
Var
ComponentsList: TNewCheckListBox;

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);
AddCheckBox('Озвучка', '', 0, True, True, False, True, nil);
AddCheckBox('Russian', '', 0, True, True, False, True, nil);
AddCheckBox('English', '', 0, True, True, False, True, nil);
//BorderStyle := bsNone;
end;
with WizardForm.WelcomeLabel2 do
begin
Height := ScaleY(111);
end;
end;

[diman_21Ru]

Dodakaedr, А как можно в файлах указать путь ?

[Dodakaedr]

А как можно в файлах указать путь ? »
Путь на что?