Вопрос как создать мелькание имен файлов

Статус
В этой теме нельзя размещать новые ответы.

андрей81

Новичок
Как сделать мелькание имён файлов над прогрессбаром при распаковки ехе файлов?
 

ROMKA-1977

Новичок
Код:
[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;
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху