Question

我使用IKG创建Inno脚本（Inno Key生成器）我想将此步骤添加到我的脚本中请帮我。用户每天只能安装一次或两次此设置。

例如：

1.使用Internet确认并检查日期（因为用户可以更改PC日期）

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

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

i.limit Over：Msg Cant Install

ii.Limit未结束或注册表和限制文件没有：安装开始

档案：all files link

请帮帮我。感谢

Answer 1

要为太多安装＆＃34;实施测试，请实施InitializeSetup event function。

增加你的隐藏＆＃34;最好的地方。使用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;

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

1 个答案: