[Serega]

как в BeforeInstall записать 2 параметра? »

Вы немного путаете, две функции в одну строку нельзя.

в справке говорится, что через запятую, но у меня это не работает »

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

с этой проблемой столкнулся, когда объединял эти 2 кода »

Решается она просто:

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

Код:

[Files]
Source: "{src}\*.exe"; DestDir: {app}; BeforeInstall: AddInfo('Откиньтесь на спинку кресла и наслаждайтесь!')
Source: "{src}\*.dll"; DestDir: {app}; BeforeInstall: AddInfo('Не забудьте зарегистрироваться')
Source: E:\Program\Inno Setup 5.3.8 Ext\*; DestDir: {app}; BeforeInstall: AddInfo(''); Flags: nocompression recursesubdirs createallsubdirs

[Code]
var
  FilesMemo: TMemo;

procedure AddInfo(s: string);
var
  AFile: string;
begin
  AFile := ExpandConstant(CurrentFilename);
  if ExtractFileExt(AFile) = '' then
    FilesMemo.Lines.Add('CreateFolder: ' + RemoveBackslash(AFile))
  else
    FilesMemo.Lines.Add('Extract: ' + AFile);
  if s <> '' then
    WizardForm.StatusLabel.Caption := s;
end;

procedure InitializeWizard();
begin
  FilesMemo := TMemo.Create(WizardForm);
  with FilesMemo do
    begin
      SetBounds(ScaleX(0), ScaleY(80), ScaleX(418), ScaleY(120));
      WordWrap := False;
      Parent := WizardForm.InstallingPage;
      ScrollBars := ssVertical;
      ReadOnly := True;
      Clear;
    end;
end;