[MaxHacker]

При использовании этого скрипта http://www.forum.oszone.ru/post-1242285-250.html на страницах выбора компонентов\задач эти компоненты\ задачи не отображаются !
Как это исправить ???

[Sotonisto]

MaxHacker, ты не первый ты и не последний кому нужно что бы скрипт был полным (тут много подобных коментов)
Это не ошибка, просто нужно было читать внимательнее:

P.S.: Сделал для стандартных страниц (не все), остальные страницы если хотите, делайте по примеру.

[cepbl4]

подскажи как реализовать установку доп прог через секцию (код)

у меня щас так:

[Tasks] Name: soft; Description: {cm:soft} [Run] Filename: {src}\soft\en_.net_framework_1.1-4.0_full_x86_x64.exe; Parameters: /S/nolang; StatusMsg: {cm:soft1}; Tasks: soft; Flags: waituntilterminated Filename: {src}\soft\VCRedist_Extreme_x64.exe; Parameters: /S; StatusMsg: {cm:soft1}; Tasks: soft; Flags: waituntilterminated; Check: IsWin64 Filename: {src}\soft\VCRedist_Extreme_x86.exe; Parameters: /S; StatusMsg: {cm:soft1}; Tasks: soft; Flags: waituntilterminated; Check: not IsWin64 Filename: {src}\soft\DirectX\DXSETUP.exe; Parameters: /silent; StatusMsg: {cm:soft1}; Tasks: soft; Flags: waituntilterminated

а хочу реализовать типо вот этого

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

[code]
procedure CurStepChanged(CurStep: TSetupStep);
Var
ResultCode: integer;
begin
if CurStep = ssPostInstall then
begin
if PsyhX.Checked then //Это чекбоксы
begin
StatusLabel.Caption:=ExpandConstant('{cm:PsyhXInstall}')
Exec(ExpandConstant('{src}\Redist\PhysX_9.09.0428_SystemSoftware.exe'), '/quiet', ExpandConstant('{src}\Redist'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
if DirectX.Checked then //Это чекбоксы
begin
StatusLabel.Caption:=ExpandConstant('{cm:DirectXInstall}')
Exec(ExpandConstant('{src}\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\DirectX'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
if Redist.Checked then //Это чекбоксы
begin
StatusLabel.Caption:=ExpandConstant('{cm:RedistInstall}')
if isWin64 then
Exec(ExpandConstant('{src}\Redist\vcredist_x64.exe'), '/Q', ExpandConstant('{src}\Redist'), SW_SHOW, ewWaitUntilTerminated, ResultCode)
else begin
Exec(ExpandConstant('{src}\Redist\vcredist_x86.exe'), '/Q', ExpandConstant('{src}\Redist'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
end;
end;
end;

[K900]

YURSHAT, а ты FreeArc в скрипте проверял? А то он как-то странно себя ведет: проценты уменьшаются с 70 до 0, потом все ок, потом около 70 опять уменьшаются. Причем прогрессбар работает... Косяк неопознанного происхождения

Класс, теперь еще и деление на ноль

[Tukash]

подскажите есть ли такой Флаг который если прописано:

Код:

[Run]
 Flags: runhidden postinstall;

не предлагал устанавливать ПО,(что-бы не вылетала табличка с выбором нужного ПО, а просто выполняло установку) после завершения, а устанавливал его по очереди?

[Habetdin]

Tukash,

Код:

[Run]
Filename: {src}\example.exe; StatusMsg: Установка Examle...; Flags: runhidden waituntilterminated

В конце установки запустит {src}\example.exe в скрытом режиме + будет ждать завершения процесса
Выглядит это так:

З.Ы.: инсталлятор может "зависнуть" - он ведь будет ждать завершения процесса

[Tukash]

Habetdin,
спасибо но у меня в скрипте стоит фриакр, т.е. надо что-бы это происходило после копирования архива, т.е. нужен

Код:

postinstall

просто там прекомп вот в чем вся проблема... с батником не нравиться, а с секцией код не то... если в скрипте фриарка изменить ssPostinstall на ssinstall то не будет стасус-сообщения, а оно мне очень нужно, уже четвертый день ищу именно этот путь решения, познакомился с 2мя новыми способами, но этот для меня самый удобный, прошу помощи!!!

[Habetdin]

Tukash,

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
    ErrorCode: Integer;
begin
    if CurStep = ssPostInstall then
    begin
        UnPackError:= UnPack(Archives)
        if UnPackError = 0 then
        begin
            SetTaskBarTitle(SetupMessage(msgSetupAppTitle))
            Exec(ExpandConstant('{src}\example.exe'), '/silent', ExpandConstant('{src}'), SW_HIDE, ewWaitUntilTerminated, ErrorCode);
        end
        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;
    end;
end;

[Tukash]

Habetdin,
про этот способ знаю... думал есть возможность через ран сделать похожее, но всеравно спасибо!

[Habetdin]

Tukash, просто:

postinstall Valid only in a [Run] section. Instructs Setup to create a checkbox on the Setup Completed wizard page. The user can uncheck or check this checkbox and thereby choose whether this entry should be processed or not.