如何从安装进度条上方的标签中隐藏或删除正在安装的文件的名称,只留下“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: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 Setup – How to create a personalized FilenameLabel with the names I want?@H_502_3@