将安装限制为每天一到两次

Question

我有 Inno Script Create Using IKG (Inno Key generator) 我想将此步骤添加到我的脚本 请帮我。 用户每天只能安装一到两次此设置。

例如：

1.使用互联网获取和查看日期（因为用户可以更改PC日期）

2.将日期保存到注册表和程序文件夹 ({app}) 中的文件（日期限制文件），如 date.txt。复制所有安装文件后，必须创建注册表和日期限制文件。

3.在安装开始前检查每个日期限制（使用注册表和日期限制文件）

i.limit Over : Msg 无法安装

ii.Limit Not over or registry and Limitation File not have : 安装开始

文件：all files link

请帮助我。谢谢

Answer 1

要针对“安装过多”实施您的测试，请实施InitializeSetup event function。

当使用ssPostInstall 参数调用时，增加“隐藏”安装计数器的最佳位置是CurStepChanged event function。

[Code]

function TooManyInstallations: Boolean;
begin
  { Here you implement your test }
  Result := False;
end;

function InitializeSetup(): Boolean;
begin
  Result := True;

  if TooManyInstallations then
  begin
    MsgBox('You have installed this too many times', mbError, MB_OK);
    Result := False;
  end;
end;

procedure IncrementInstallationCounter;
begin
  { increment your installation counter here }
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    { Installation has beed completed }
    IncrementInstallationCounter;
  end;
end;