[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl
[Files]
Source: compiler:Examples\*; DestDir: {app}; BeforeInstall: AddToMemo; Flags: nocompression recursesubdirs createallsubdirs
[code]
var
FilesMemo: TNewMemo;
procedure AddToMemo();
var
AFile: String;
begin
AFile := ExpandConstant(CurrentFilename);
if ExtractFileExt(AFile) = '' then
FilesMemo.Lines.Add('CreateFolder: ' + RemoveBackslash(AFile))
else
FilesMemo.Lines.Add('Extract: ' + AFile);
end;
procedure InitializeWizard();
begin
FilesMemo := TNewMemo.Create(WizardForm);
FilesMemo.SetBounds(ScaleX(0), ScaleY(80), ScaleX(418), ScaleY(120));
FilesMemo.WordWrap := False;
FilesMemo.Parent := WizardForm.InstallingPage;
FilesMemo.ScrollBars := ssVertical;
FilesMemo.ReadOnly := True;
FilesMemo.Clear;
end;