インストールを1日に1,2回に制限します

Question

IKG（Inno Key generator）を使用してInno Scriptを作成します この手順をスクリプトに追加します 助けてください。 ユーザーは、この設定を1日に1〜2回のみインストールできます。

例：

し1.Getと（ユーザがPCの日付を変更することができるので）、インターネットを用いて

2.Saveレジストリに日付とプログラムフォルダ内のファイル（{アプリ}）（日付制限が日付を確認ファイル）、date.txtなど。レジストリと日付制限ファイルは、すべてのインストールファイルをコピーした後に作成する必要があります。メッセージカントはii.Limitが終わっまたはレジストリと制限ファイル持っていません

をインストールします。以上

日付ごと制限して、インストールを開始する前に、3.Check（レジストリと日付制限ファイルを使用して）

i.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;