[Gnom_aka_Lexander]

R.i.m.s.k.y.,

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Components]
Name: text; Description: Язык субтитров;
Name: text\rus; Description: Русский; 
Name: text\eng; Description: Английский; 

[*Code]
procedure ComponentsListClick(Sender: TObject);
var
  s: string;
  n: Integer;
begin
  with WizardForm.ComponentsList do
  begin
    s := '';
    ItemCaption[0] := '';
    for n := 0 to ItemCount - 1 do
    begin
      if Checked[n] then
        s := s + ItemCaption[n] + ' ' + '|' + ' ' + #32;
    end;
    Delete(s, Length(s) - 2, 2);
    if s = '' then s := 'Ничего не выбрано';
    ItemCaption[0] := s;
  end;
end;

procedure InitializeWizard();
begin
  with WizardForm.ComponentsList do
  begin
    OnClick := @ComponentsListClick;
  end;
end;

По второму вопросу - на птичках не стоит фалаг ожидания?