解决方法
从
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;
但请注意,将序列号存储为常量并不是一个好习惯.您应该考虑使用其他方式来验证您的产品.