Question

I was looking for a serial script and I found one here:

CustomPage for Serial Number in Inno Setup

But how can I set the serial because all serials are valid now.

Thanks for your answer!

Answer 1

Extending the code from my previous post, if you want to compare the serial number with a constant value, you can modify the script this way. The only valid serial number which allows users to continue will be 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;

But note, it’s not a good practice to store serial numbers as constants at all. You should consider to use another way to validate your product.