[Ivan_009]

как добавить другой более красивый прогресс бар или изменить »

Так: http://rghost.ru/52977599

[kot-da-vinci]

Таки как разделить секцию [Tasks] на 2 странички? »

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

kot-da-vinci, правильный ответ - создание custom page и перенос на нее части галок
примеров куча в шапке и прошлых темах
у меня под рукой нет

_____________
но я обычно на такое не заморачиваюсь а создаю процедуру по обработке кликов и расставлению одних галок в зависимости от других

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

Но остается непонятным как активировать выбранный вариант в группе опций. »

не понял ты имеешь ввиду как сделать элемент неактивным/активным в зависимости от выбора?

[kot-da-vinci]

R.i.m.s.k.y., нет. Я имел ввиду как ативировать выбранный вариант таска.
Например:

Код:

[Files]
Source: "MyDll1.dll"; DestDir: "{app}"; Flags: ignoreversion; Tasks: BV5030 
Source: "MyDll2.dll"; DestDir: "{app}"; Flags: ignoreversion; Tasks: BV6045
Source: "MyDll3.dll"; DestDir: "{app}"; Flags: ignoreversion; Tasks: BV6080

[Tasks]
Name: "BV5030"; Description: "5030"; GroupDescription: "{cm:SelectScanerModel}"; Flags: exclusive
Name: "BV6045"; Description: "6045"; GroupDescription: "{cm:SelectScanerModel}"; Flags: exclusive unchecked
Name: "BV6080"; Description: "6080"; GroupDescription: "{cm:SelectScanerModel}"; Flags: exclusive unchecked

Выбрал пользователь на моей страничке вариант 6080. Что дальше? Как сообщить инсталятору, что нужно активировать таск BV6080, а не BV5030?

P.S.: Вот ссылка на пример создания своей странички.

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

Как сообщить инсталятору, что нужно активировать таск BV6080, а не BV5030? »

писать процедуру обработки кликов
под рукой нет, позже

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

R.i.m.s.k.y., сравнение строк как в Delphi: Цитата: Strings are compared according to the ordinal values that make up the characters that make up the string. Character types are treated as strings of length 1. »

т.е. при сравнении 1,0,0,6 будет > чем 1,0,0,20?

дополнить каждый токен версии лидирующими нулями, потом строки можно сравнивать: »

вот это сильная магия, ни строчки не понял кроме замены зпт на тчк и обратно

[Dinvin4ester]

Ребята привет.Ошибка такого типа - http://i58.fastpic.ru/big/2014/0311/...20fd403c17.jpg.
Скрипт - http://sendfile.su/952086 и еще не показывает прогресс бар ,можно тоже сделать ее,а то я не использую сторонние архиваторы,только средствами инно.
Спасибо.

[Farser21]

Ivan_009, спасибо попробую!

[nik1967]

т.е. при сравнении 1,0,0,6 будет > чем 1,0,0,20? »

Хе, работает(не не будет)

Код:

[Setup]
AppName=Game
AppVersion=Game_v1
DefaultDirName={pf}\Games
DefaultGroupName=Games
OutputDir=.

[ code]
function FormatVersion(const szVer: String): String;
var
  i: Integer;
begin
  with TStringList.Create do
    try
      StringChangeEx(szVer, '.', ',', True);
      CommaText:= szVer;
    for i:= 0 to Count-1 do Strings[i]:= Padz(Strings[i], 5);
      Result:= CommaText;
      StringChangeEx(Result, ',', '.', True);
    finally
        Free;
    end;
end;

function FileVersion(const FilePath: String): String;
var
  oFS: Variant;
begin
  oFS:= CreateOleObject('Scripting.FileSystemObject');
    try
      Result:= oFS.GetFileVersion(FilePath);
    except
  end;
end;
  
function InitializeSetup: Boolean;
begin
  if FormatVersion(FileVersion(ExpandConstant('{src}')+'\simple1.exe')) < FormatVersion('1.0.0.20') then
    MsgBox('True', mbInformation, MB_OK) else MsgBox('False', mbInformation, MB_OK);
    Result:= false;
end;