validation - 我如何设置此序列形式的序列(Inno Setup)

Question

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

CustomPage for Serial Number in Inno Setup

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

感谢您的回答!

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;

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