inno-setup - 根据 Inno Setup 中的多个值验证序列号

Question

所以我尝试使用以下命令在 Inno Setup 中创建一个带有序列号验证的安装程序: CustomPage for Serial Number in Inno Setup
^序列号页

How can i set the serial for this serial form (Inno Setup)
^用于检查输入的序列号。两者都是 TLama 制作的!

所以我试图让代码使用多个序列号，我尝试这样做(使用第二个链接中的代码):

CanContinue := GetSerialNumber('-') = '62FFU-GA4N8-T8N6W-WLQJW-N6WLQ-AJKD6';
CanContinue := GetSerialNumber('-') = 'TEST1-RANDO-MFAKE-THING-YBLAB-BLA55';

但是这样做时，只有第二个可以工作。

我不太了解 Inno Setup 代码，但是有人可以解释一下如何使其工作吗？谢谢!

Answer 1

它没有按预期工作，因为您用第二行代码覆盖了 CanContinue 值，这导致仅对第二个序列号起作用。

您应该将GetSerialNumber 函数的返回值存储到某个局部变量以避免多次函数调用，并在语句中使用or 运算符。像这样的东西(我还删除了额外的 CanContinue 变量，它在这里没有多大用处):

procedure OnSerialEditChange(Sender: TObject);
var
  S: string;
begin
  { store the returned value to the local variable to avoid multliple calls }
  S := GetSerialNumber('-');
  { enable the NextButton only when the serial number matches either first }
  { OR the second serial number string }
  WizardForm.NextButton.Enabled :=
    (S = '62FFU-GA4N8-T8N6W-WLQJW-N6WLQ-AJKD6') or
    (S = 'TEST1-RANDO-MFAKE-THING-YBLAB-BLA55');
end;