Inno setup inno安装程序使用许可证密钥文件激活

如果可能的话，我需要一些帮助？您是否可以使用许可证密钥文件代替序列号，该文件可以是txt、DAT或BIN文件，以便继续安装您的产品

有一种解决方案叫做：VMPKit for Inno Setup，但价格昂贵

给你

---

我希望你们能帮助我，提前谢谢我的朋友。

你需要创建一个自定义向导页面，并调用你自己的功能来激活你的应用程序。这是一个简单易行的方法，但在我看来，它还需要调用你的dll来激活应用程序

我在尝试创建这样的激活设置页面时浪费了一些时间，但很快发现它完全是在浪费我的时间。目前，我将VMProtect Ultimate与VMP web license manager一起使用，并使用vmpkit将其集成到我的应用程序中。很抱歉，我为一个商业软件道歉，但我认为这是值得的

使用VMPKit的Inno安装脚本如下所示：

[Code]
var
    ChoiceUserGroupPage : TInputOptionWizardPage;
    ActivationType: Integer;
    VmpikAppIsActivatedFlag : Boolean;

var
  VMPIK_SERIAL_FORMAT: array of integer; // see function InitializeSerialFormat and InitializeWizard
  VMPIK_SERIAL_NUM_PARTS: integer; // = 10;

const

  VMPIK_SERIAL_NUM_PARTS_MAX = 16;

  VMPIK_ACTIVATE_CHOICE_ALLOW_SERIAL           = True; // Change to your own value
  VMPIK_ACTIVATE_CHOICE_ALLOW_LICENSE_KEY_FILE = True; // Change to your own value True
  VMPIK_ACTIVATE_CHOICE_ALLOW_TRIAL            = True;
  VMPIK_ACTIVATE_CHOICE_ALLOW_LATER            = True; // Change to your own value
  VMPIK_ACTIVATE_CHOICE_ALLOW_ALREADY          = True; // Change to your own value
  VMPIK_TRIAL_SERIAL_NUMBER = '{#TRIAL_SERIAL}'; //'XXXX-XXXX-XXXX-XXXX'; // Change to your own value or keep empty if VMPIK_ACTIVATE_CHOICE_ALLOW_TRIAL = False
  VMPIK_ACTIVATION_LOG_ALLOW = True; // allow log activation process and /ACTIVATIONLOG command line switch
  VMPIK_ACTIVATION_LOG_FILENAME_PREFIX = 'clp_'; // prefix for activation log filename


var
  ActivateChoicePage: TInputOptionWizardPage;
  EnterSerialNumberPage: TWizardPage;
  ChoiceKeyFilePage: TInputFileWizardPage;

#include "select_grp_scrip.pas"
#include "activate_hlp_script.pas"


procedure InitializeSerialFormat(var fmt:Array of integer);
begin
    SetArrayLength(fmt,VMPIK_SERIAL_NUM_PARTS_MAX);

    VMPIK_SERIAL_NUM_PARTS := 4;
    fmt[0]  :=  4;  fmt[1]  :=  4;  fmt[2]  := 4;  fmt[3]  := 4;
    fmt[4]  :=  0;  fmt[5]  :=  0;  fmt[6]  := 0;  fmt[7]  := 0;
    fmt[8]  :=  0;  fmt[9]  :=  0;  fmt[10] := 0;  fmt[11] := 0;
    fmt[12] :=  0;  fmt[13] :=  0;  fmt[14] := 0;  fmt[15] := 0;

end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := False;

  if ((PageID=ChoiceUserGroupPage.ID) and ((gsSkipPage<>False) or WizardSilent() )) then
  begin
     TestUserGroupChoice(ChoiceUserGroupPage);
     Result := True;
     Exit;
  end;

  if (PageID=ActivateChoicePage.ID) then
    begin
      if (VMPIK_IsNeedToSkipChoiceActivationTypePage() = True) then Result := True;
      Exit;
    end;

  if (PageID = EnterSerialNumberPage.ID) then
    begin
      if (VMPIK_IsNeedToSkipSerialPage(ActivationType) = True) then Result := True;
      Exit;
    end;

  if (PageID = ChoiceKeyFilePage.ID) then
    begin
      if (VMPIK_IsNeedToSkipLicenseKeyFilePage(ActivationType) = True) then Result := True;
      Exit;
    end;
end;


function NextButtonClick(CurPageID: Integer): Boolean;
begin

    Result := True;

    if (CurPageID=ChoiceUserGroupPage.ID) then
    begin
       TestUserGroupChoice(ChoiceUserGroupPage);
       Exit;
    end;

    if (CurPageID=ActivateChoicePage.ID) then
    begin
      ActivationType := VMPIK_GetActivationTypeCode(ActivateChoicePage);
    end;

    if ((CurPageID=ActivateChoicePage.ID) and ((ActivationType=AM_LATER) or (ActivationType=AM_ALREADY))) then
       begin
         Exit;
       end;

    if (((CurPageID=ActivateChoicePage.ID)    and (ActivationType=AM_TRIAL)) or
        ((CurPageID=ChoiceKeyFilePage.ID)     and (ActivationType=AM_LICFILE)) or
        ((CurPageID=EnterSerialNumberPage.ID) and (ActivationType=AM_SERIAL)) or
        ((CurPageID=wpReady) and (VmpikCommandLineSkipActivationPages<>False)) // silent activation runs immediately before install
       ) then
       begin
         Result := VMPIK_OnNextButtonClick_TryActivate( CurPageID
                                                      , VMPIK_ACF_SHARE64FOR32KEY
                                                      , 'Software\' + '{#APP_REG_KEY}'
                                                      , 'License'
                                                      , 'SerialNumber'
                                                      , 'Trial'
                                                      , 'http://vmpkit.com/'
                                                      , ChoiceKeyFilePage.Values[0]
                                                      );
         Exit;
       end;

end;


procedure InitializeWizard ();
var
    numParams : Integer;
    paramNo   : Integer;
    StrParamName: string;
    StrParamVal: string;
begin

    VmpikAppIsActivatedFlag := False;

    InitializeSerialFormat(VMPIK_SERIAL_FORMAT);

    ChoiceUserGroupPage   := CreateChoiceUserGroupPage(wpLicense);

    ActivateChoicePage    := VMPIK_CreateChoiceActivationPage(wpSelectTasks); // wpWelcome, wpInfoBefore
    EnterSerialNumberPage := VMPIK_CreateEnterSerialNumberPage(ActivateChoicePage.ID);
    ChoiceKeyFilePage     := VMPIK_CreateChoiceKeyFilePage(EnterSerialNumberPage.ID);

    GrpParseCommandLine( ChoiceUserGroupPage );
    VMPIK_ParseCommandLine( ActivateChoicePage, EnterSerialNumberPage );
end;

上面的脚本显示“选择用户”页面-为所有用户安装或仅为当前用户安装，然后显示“激活”页面

此外，VMPKit Inno安装脚本支持非常静默的安装-您可以在无人参与的安装的命令行中设置序列号

我发现VMPKit是一个很好的工具