[kotyarko@fb]

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

Нуу, это какой-то грубый пример. Рациональнее уже сделать циклом:

Код:

Procedure CurStepChanged(CurStep: TSetupStep);
var
 I: Integer;
begin
 if CurStep = ssDone then
 begin
  for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do
  begin
   if WizardForm.ComponentsList.Checked[i] then
    SaveStringToFile(ExpandConstant('{app}\components.txt'), WizardForm.ComponentsList.ItemCaption[i] + #13#10, True);
  end;
 end;
end;

[diman_21Ru]

Dodakaedr, Вы меня может не поняли компонент надо чтобы выделялся при нажатие на любое место этой строчки а не только при нажатие на галочку или флажок.

[Dodakaedr]

diman_21Ru, На скрине видно что строка полностью выделена.

kotyarko@fb, можно и так, но в этом случаи весь индекс компонент листа попадает в список, в моем примере только определенный компонент. Грубый, но правильный.

Через процедуру, чтобы не путаться

Код:

[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 
Name: Mode/MPOnly; Description: MPOnly; Flags: disablenouninstallwarning
Name: Mode2; Description: mode; Types: custom; flags: fixed
Name: Mode2/SPOnly2; Description: SPOnly2; Flags: disablenouninstallwarning 
Name: Mode2/MPOnly2; Description: MPOnly2; Flags: disablenouninstallwarning

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

[Code]
procedure CreateComponentListDone();
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;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
  begin
  CreateComponentListDone();
  end;
end;

[kotyarko@fb]

можно и так, но в этом случаи весь индекс компонент листа попадает в список, в моем примере только определенный компонент. Грубый, но правильный. »

Правильный, но не в данном случае. Речь шла о всех выбранных компонентах.

[Dodakaedr]

kotyarko@fb,

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

[kotyarko@fb]

Dodakaedr, внимательнее посмотрите мои примеры.
В первом будут записываться только компоненты из ReadyMemo (туда попадают только выбранные).
Во втором идёт проверка, выбран ли компонент вообще:

Код:

if WizardForm.ComponentsList.Checked[i] then

[Dodakaedr]

kotyarko@fb, второй более-менее а почему сразу не предложили? У меня просто без заголовков компонентов(родителя). А первый?

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

[kotyarko@fb]

второй более-менее а почему сразу не предложили? У меня просто без заголовков компонентов(родителя). А первый? »

Первый я написал как "самый простой способ". А что не так?

[Dodakaedr]

А что не так? »

Как по мне много лишнего. А что не понятно?

[kotyarko@fb]

Как по мне много лишнего. А что не понятно? »

Папка установки и тип. Не думаю, что это много.
В любом случае, найдутся те, кому понадобятся эти способы. Так что лишними они тут не будут.