validation - 如何设置此序列表的序列号（Inno Setup）

Question

我正在寻找一个串行脚本，我在这里找到了一个：

Inno 设置中序列号的自定义页面

但是如何设置序列号，因为所有序列号现在都有效。

感谢您的回答！

Answer 1

扩展我的代码previous post，如果你想将序列号与一个常数值进行比较，你可以这样修改脚本。允许用户继续的唯一有效序列号是62FFU-GA4N8-T8N6W-WLQJW-N6WLQ-AJKD6：

procedure OnSerialEditChange(Sender: TObject);
var
  CanContinue: Boolean;
begin
  // the GetSerialNumber defined there returns you the serial number string
  // built from each edit box delimited by the char passed as a parameter
  CanContinue := GetSerialNumber('-') = '62FFU-GA4N8-T8N6W-WLQJW-N6WLQ-AJKD6';
  WizardForm.NextButton.Enabled := CanContinue;
end;

但请注意，将序列号存储为常量并不是一个好习惯。您应该考虑使用另一种方式来验证您的产品。