限制每天安裝一次或兩次

Question

我使用IKG創建腳本（Inno Key generator） 我想將此步驟添加到我的腳本 請幫助我。 用戶只能每天安裝一次或兩次。

如：

1.get和使用Internet確認時間（因爲用戶可以更改PC日期）

2.Save日期到註冊表和程序文件夾中的文件（{}的應用程序）（日期限制文件），比如date.txt。在複製所有安裝文件後，必須創建註冊表和日期限制文件。每日期限制和之前安裝開始（使用註冊表和日期限制文件）

3.檢查

i.limit過：消息廣東話安裝

ii.Limit不超過或註冊表與侷限文件沒有：安裝開始

文件：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;