Как установить серийный номер этой серийной формы (Inno Setup)

Я искал серийный script, и я нашел его здесь:

CustomPage для серийного номера в Inno Setup

Но как я могу установить серийный номер, потому что теперь все сериальные файлы действительны.

Спасибо за ваш ответ!

Ответ 1

Расширение кода из previous post, если вы хотите сравнить серийный номер с постоянным значением, вы можете изменить script таким образом. Единственный действительный серийный номер, который позволяет пользователям продолжать, будет 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;

Но обратите внимание, что не стоит хранить серийные номера как константы. Вы должны рассмотреть возможность использования другого способа проверки вашего продукта.