[Serega]

объединить со скриптом FreeArc_Example.iss »

Просто не поверите, я устал уже от FreeArc_Example.iss, обычно я игнорирую такие вопросы...
У меня иногда складывается впечатление, что просто какое-то FreeArc-помешательство или может быть это обычный стадный инстинкт, одним словом не знаю...
На мой взгляд 7z лучше и проще, но как говорят для саморазвития:

Пример

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
    begin
      UnPackError:= UnPack(Archives)
      if UnPackError = 0 then
        SetTaskBarTitle(SetupMessage(msgSetupAppTitle))
      else
        begin
          // Error occured, uninstall it then
          Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewWaitUntilTerminated, n); //откат установки из-за ошибки unarc.dll
          SetTaskBarTitle(SetupMessage(msgErrorTitle))
          WizardForm.Caption:= SetupMessage(msgErrorTitle) +' - '+ cm('ArcBreak')
        end;
      ExecAndWait(ExpandConstant('{sys}\notepad.exe'), '', '', SW_SHOW, True);
    end;
end;

Кто может показать пример скрипта с прогресс-баром?? »

Пример

Код:

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

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

Все примеры, которые отрыл в шапке темы - либо не работают вообще, либо стабильно показывают 0%. »

Что у вас не работает конкретно? Может расскажите подробней?