隐藏Inno Setup进度页面中的文件名

Question

如何从安装进度条上方的标签中隐藏或删除正在安装的文件的名称,只留下"ex:install"？

它显示为文件正在解压缩.

LabelCurrFileName.Caption :=
  ExpandConstant('{cm:ExtractedFile} ') + 
  MinimizePathName(
    CurrentFile, LabelCurrFileName.Font, LabelCurrFileName.Width - ScaleX(100));

LabelCurrFileName.Caption := ExpandConstant('{cm:ExtractedFile} ');

Answer 1

我想你想FilenameLabel用自定义标签替换标签.如何为不同语言指定自定义文本以及如何将它们与自定义标签一起使用,而不是FilenameLabel您可以在以下脚本中找到的标签:

[Languages]
Name: en; MessagesFile: "compiler:Default.isl"
Name: br; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl"

[CustomMessages]
en.InstallingLabel=Installing...
br.InstallingLabel=Instalando...

[Code]

procedure InitializeWizard;
begin
  with TNewStaticText.Create(WizardForm) do
  begin
    Parent := WizardForm.FilenameLabel.Parent;
    Left := WizardForm.FilenameLabel.Left;
    Top := WizardForm.FilenameLabel.Top;
    Width := WizardForm.FilenameLabel.Width;
    Height := WizardForm.FilenameLabel.Height;
    Caption := ExpandConstant('{cm:InstallingLabel}');
  end;
  WizardForm.FilenameLabel.Visible := False;
end;

@MartinPrikryl编辑:有关完整的实现,请参阅Inno设置 - 如何使用我想要的名称创建个性化的FilenameLabel？