[Serega]

пишет invalid number of parameters »

Правильно, вы посмотрите в Справке описание этой функции, ну или хотя бы сделали по аналогии, у вас же выше написана эта же функция...
Должно быть так:

Код:

  Exec(ExpandConstant('{tmp}\setup.exe'), '', '', SW_HIDE, ewWaitUntilTerminated, n);

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

if not {#isFalse(SetupSetting("Uninstallable"))} then Status.count:= -1; // не считать файл unins000.exe end; »

В этой строке вы загнали end; в комментирование, т.е. переведите его на следующую строку.

[vahe-91]

В этой строке вы загнали end; в комментирование, т.е. переведите его на следующую строку »

когда жму 'вставить тег [_CODE]' и вставляю текст, он весь скрипт пишет на одной строке, поэтому и так получилось

Спасибо тебе

[vahe-91]

Serega,

решил сделать так, но после окончания процесса setup.exe выдает ошибку runtime error (at 127:28) acces violation at address0044694c. read of address 00000000

И еще в коде можно поставить setup.exe флаг hidewizard ?

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
    if CurStep = ssInstall then begin
        StartInstall:= GetTickCount    {время начала извлечения файлов}
        WndHookID:= SetWindowsHookEx(WH_CALLWNDPROC, WrapCWPSTRUCTProc(@OnWndHook, 3), 0, GetCurrentThreadID);    {установка SendMessage хука}
        TimerID:= SetTimer(0, 0, 500 {полсекунды}, WrapTimerProc(@MyTimerProc, 4));    {установка таймера}
        if not {#isFalse(SetupSetting("Uninstallable"))} then Status.count:= -1; // не считать файл unins000.exe
    end;
    if CurStep = ssPostInstall then
    begin
        StartInstall:= GetTickCount    {время начала распаковки}
        UnPackError:= UnPack('{#Archives}')
        if UnPackError <> 0 then begin // Error occured, uninstall it then
            if not {#isFalse(SetupSetting("Uninstallable"))} then  // деинсталляция разрешёна
                Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewWaitUntilTerminated, n);    // откат установки из-за ошибки unarc.dll
            WizardForm.caption:= SetupMessage(msgErrorTitle) +' - '+ cm('ArcBreak')
            SetTaskBarTitle(SetupMessage(msgErrorTitle))
        end else  begin
            SetTaskBarTitle(SetupMessage(msgSetupAppTitle));
            Exec(ExpandConstant('{tmp}\setup.exe'), '', '', SW_HIDE, ewWaitUntilTerminated, n)   end;
end;
end;

[Serega]

после окончания процесса setup.exe выдает ошибку runtime error (at 127:28) acces violation »

Выдаёт ошибку setup.exe, это ваш инсталлятор или тот, который вы запускаете?
Без запуска стороннего setup.exe ошибка есть?
Ошибка acces violation говорит о том, что идёт обращение к объекту, которого нет, т.е. он ещё не создан или уже разрушен. Чтоб было понятней:

Пример

Код:

procedure InitializeWizard();
var
  lbl: TLabel;
begin
  // создаём контрол
  lbl := TLabel.Create(WizardForm);
  with lbl do
    begin
      Parent := WizardForm;
      AutoSize := True;
      Left := ScaleX(20);
      Top := ScaleY(330);
    end;
  lbl.Free; // разрушаем контрол
  // при попытке обращения к контролу после разрушения,
  lbl.Caption := 'Пример...'; // получаем acces violation в этой строке
end;

можно поставить setup.exe флаг hidewizard ? »

Подробней объясните, что именно вы хотите сделать?

[vahe-91]

Выдаёт ошибку setup.exe, это ваш инсталлятор или тот, который вы запускаете? »

мой инсталятор Инно. Без запуска setup.exe все нормально

Подробней объясните, что именно вы хотите сделать? »

чтобы во время выполнения setup.exe мастер установки был скрыт

[nik1967]

чтобы во время выполнения setup.exe мастер установки был скрыт »

А так:

Код:

WizardForm.Hide;
   Exec(ExpandConstant('{tmp}\setup.exe'), '', '', SW_HIDE, ewWaitUntilTerminated, n);
WizardForm.Show;

[Serega]

Без запуска setup.exe все нормально »

Тогда эта ошибка инсталлятора, который вы запускаете, может ему не нравиться, что вы запускаете его скрыто, попробуйте запустить его с параметром SW_SHOWNORMAL.
Хотя я больше чем уверен, что без этого инсталлятора вы не пробовали запускать и эта ошибка у вас в скрипте.
Запустите инсталляцию прямо из редактора и в момент ошибки, в самом скрипте у вас будет выделена строка, на которой произошла ошибка.

[vahe-91]

nik1967,
во время выполнения setup.exe мастер скрывается, но по окончания получаю прежную ошибку и мастер не восстанавливается

Тогда эта ошибка инсталлятора, который вы запускаете, может ему не нравиться, что вы запускаете его скрыто, попробуйте запустить его с параметром SW_SHOWNORMAL »

не помогает

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

пробовал, ошибок нету

Запустите инсталляцию прямо из редактора и в момент ошибки, в самом скрипте у вас будет выделена строка, на которой произошла ошибка »

вот что получается



line 344 out of range

Код:

 if (Status.stage = cm('ArcTitle')) and (GetArrayLength(Arcs) > 0) then begin
    ExtractFile.Caption:= FmtMessage(cm('ArcInfo'), [IntToStr(ArcInd+1), IntToStr(GetArrayLength(Arcs)),    // это строка 344
ByteOrTB(Arcs[ArcInd].Size, true), Format('%.0n', [Status.mb/(Arcs[ArcInd].Size/oneMB)*100]), ByteOrTB(Status.allsize, true)])
    ProgressBar.Position:= round(ProgressBar.Max * Status.mb/trunc(Arcs[ArcInd].Size/oneMB))
  end;

[e2e44]

Доброго вечера
Задачка
По завершении установки необходимо появление диалогового окна, с выбором ник нейма
Ник в последствии должен быть прописан в определенной части файла *.ini
Помогите если не трудно.

[Serega]

пробовал, ошибок нету »

Чудес не бывает

line 344 out of range »

Ошибка out of range, означает выход за пределы, эта ошибка связана с выходом за пределы массива или множества.
Следовательно внимательно посмотрите, что вы ещё меняете при добавлении запуска другого инсталлятора.
Так же попробуйте, закоментируйте запуск стороннего инсталлятора в скрипте и запустите также через редактор.

необходимо появление диалогового окна, с выбором ник нейма »

Пример

Код:

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

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

[UninstallDelete]
; при деинсталляции не забываем удалить config.ini
Type: files; Name: {app}\config.ini

[Code]
var
  Form: TSetupForm;

procedure ButtonClick(Sender: TObject);
begin
  Form.Close;
end;

function GetNikName: string;
var
  edt: TEdit;
begin
  try
    Form := CreateCustomForm;
    with Form do
      begin
        ClientWidth :=  ScaleX(200);
        ClientHeight := ScaleY(100);
        Center;
        Caption := 'Ввод данных...';
      end;
    with TLabel.Create(Form) do
      begin
        Parent := Form;
        AutoSize := True;
        Left := ScaleX(12);
        Top := ScaleY(12);
        Font.Size := 9;
        Caption := 'Введите свой Логин:';
      end;
    edt := TEdit.Create(Form);
    with edt do
      begin
        Parent := Form;
        SetBounds(ScaleX(10), ScaleY(35), Form.ClientWidth - ScaleX(20), ScaleY(17));
      end;
    with TButton.Create(Form) do
      begin
        Parent := Form;
        SetBounds((Form.Width - Width) div 2, ScaleY(65), ScaleX(75), ScaleY(23));
        Caption := 'OK';
        OnClick := @ButtonClick;
      end;
    Form.ShowModal;
  finally
    Result := edt.Text;
    Form.Free;
    Form := nil;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
    SetIniString('Section', 'Key', GetNikName, ExpandConstant('{app}\config.ini'))
end;

Описание всех функций, можете найти в Справке.