6

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

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

Inno Setup 安装进度页面截图

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

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

1 回答 1

15

我想你想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?

于 2012-10-29T05:03:22.590 回答