inno-setup – 隐藏Inno Setup进度页面中的文件名

发布时间：2020-12-15 10:03:55 所属栏目：大数据来源：网络整理

导读：如何从安装进度条上方的标签中隐藏或删除正在安装的文件的名称,只留下“ex：install”？它显示为文件正在解压缩. LabelCurrFileName.Caption := ExpandConstant('{cm:ExtractedFile} ') + MinimizePathName( CurrentFile,LabelCurrFileName.Font,LabelCurrF

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

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

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

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

解决方法

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

[Languages]
Name: en; MessagesFile: "compiler:Default.isl"
Name: br; MessagesFile: "compiler:LanguagesBrazilianPortuguese.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 Setup – How to create a personalized FilenameLabel with the names I want?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!