[bosenkov5]

Доброе утро всем и у меня такой вопрос
Пакую батником Precomp+Srep+FreeArc
и при распаковке ничего не происходит и вопрос:как в ISDone.iss прописать чтобы распаковывалось сначала Precomp потом Srep а потом FreeArc ?
вот пример
if not ISArcExtract ( 1, 10, ExpandConstant('{src}\Setup.bin'), ExpandConstant('{app}\'), '', false, '12345', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;

[diman_21Ru]

Пытаюсь вставить WizadForm.ComponentsList.WantTabs := True; для нажатия на любое место строки для выбора компонента незнаю куда именно прикрутить стоит Unicode.

[Dodakaedr]

diman_21Ru,

Код:

procedure InitializeWizard();
begin
WizardForm.ComponentsList.WantTabs := True;
end;

[Kashtan007]

Привет форумчане.
Как сделать, чтобы после установки в указанной папке создавался текстовый файл, в который будет выводится список установленных компонентов?
Заранее спасибо за ответ.

[diman_21Ru]

Dodakaedr, не помогает (

[kotyarko@fb]

Как сделать, чтобы после установки в указанной папке создавался текстовый файл, в который будет выводится список установленных компонентов? »

Самый простой способ:

Код:

Procedure CurStepChanged(CurStep: TSetupStep);
begin
 if CurStep = ssPostInstall then
  WizardForm.ReadyMemo.Lines.SaveToFile(ExpandConstant('{app}\SelectedComponents.txt'));
end;

[Kashtan007]

kotyarko@fb, спасибо.

[Dodakaedr]

Как сделать, чтобы после установки в указанной папке создавался текстовый файл, в который будет выводится список установленных компонентов? »

проверка по индексу компонента

Скрытый текст

Код:

[Setup]
AppName=Apps
AppVersion=1.0
DefaultDirName={pf}\Apps

[Components]
Name: Mode; Description: mode; Types: custom; flags: fixed
Name: Mode/SPOnly; Description: SPOnly; Flags:  disablenouninstallwarning exclusive
Name: Mode/MPOnly; Description: MPOnly; Flags: disablenouninstallwarning 
Name: Mode2; Description: mode; Types: custom; flags: fixed
Name: Mode2/SPOnly2; Description: SPOnly2; Flags: disablenouninstallwarning exclusive
Name: Mode2/MPOnly2; Description: MPOnly2; Flags: disablenouninstallwarning

[UninstallDelete]
Type: files; Name: "{app}\components.txt"

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
  begin
      if WizardForm.ComponentsList.Checked[1] then
        SaveStringToFile(ExpandConstant('{app}\components.txt'), 'SPOnly' + #13#10, False);
      if WizardForm.ComponentsList.Checked[2] then
        SaveStringToFile(ExpandConstant('{app}\components.txt'), 'MPOnly' + #13#10, True);
      if WizardForm.ComponentsList.Checked[4] then
        SaveStringToFile(ExpandConstant('{app}\components.txt'), 'SPOnly2' + #13#10, True);
      if WizardForm.ComponentsList.Checked[5] then
        SaveStringToFile(ExpandConstant('{app}\components.txt'), 'MPOnly2' + #13#10, True);
  end;
end;

[diman_21Ru]

Dodakaedr, Вставил код и не помогло (
procedure InitializeWizard();
begin
WizardForm.ComponentsList.WantTabs := True;
end;

[Dodakaedr]

diman_21Ru, Зачем оно вам? Оно и так выделяется

Скрытый текст