Inno安装程序使用Pascal脚本自定义FinishedLabel

Question

我使用Inno Setup 6. x的目标是在代码中自定义FinishedLabel文本，即Pascal Script。我使用Pascal Script的原因是我只想在IsAdmin模式（）为真时自定义/更改标签。我该怎么做？

以下两种方法不起作用:

>

使用脚本常量：

[Messages]
FinishedLabel={code:GetFinishedLabel}

[Code]
function GetFinishedLabel(Param: String): String;
begin
  Result := 'BLA';
end;

这显示的是“{code:GetFinishedLabel}”，而不是“BLA”。

在< code>InitializeWizard中自定义向导。

完整（失败）示例：

[Code]
procedure InitializeWizard();
begin
  WizardForm.FinishedLabel.Caption := 'BLA';
end;

FinishLabel仍然显示Default.isl中的原始文本

有什么想法吗？

Answer 1

< code>FinishedLabel会在安装结束时根据各种因素进行更新。因此您在< code>InitializeWizard中设置的值将被覆盖。您必须稍后设置您的自定义消息，例如在< code > CurPageChanged(WP finished)中:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpFinished then
  begin
    WizardForm.FinishedLabel.Caption := 'BLA';
  end;
end;

您可以考虑改进代码来做Inno Setup会做的事情，比如:

• 考虑到，如果需要重新启动（完成重启标签）;
• 考虑到是否创建了图标（DoneLabel vs. DoneLabelNoIcons）;
• 调整标签高度以适合消息;
• 根据消息高度移动运行列表位置。