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!
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!
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.
OnSerialEditChange
event with the code from here), you will extend the validation for pattern, where each serial number segment must be 5 chars long and consists from 3 alphabetical chars and 2 numbers. –
Ancell © 2022 - 2024 — McMap. All rights reserved.
GetSerialNumber('-')
function there and you will get the serial number string delimited by the-
char. Do you want to validate the serial directly in your setup script ? It wouldn't be so safe. – Ancell