Limit installations to one or two time per day - inno-setup

Question

I have Inno Script Create Using IKG (Inno Key generator)
I want Add This Step to My Script
Please Help me.
User can install this setup one or two time per day only.
Eg:
1.get and check date using Internet (because user can change PC date)
2.Save date to registry and a file in program folder ({app}) (date limitation file), like date.txt. Registry and date limitation file must be created after all installation files are copied.
3.Check per date limitation and before installation starts (using registry and date limitation file)
i.limit Over : Msg Cant Install
ii.Limit Not over or registry And Limitation File not Have : Installation Start
Files: all files link
Please help me. Thanks

Answer 1

To implement your test for "too many installations", implement the InitializeSetup event function.
The best place to increment your "hidden" installation counters is the CurStepChanged event function, when called with ssPostInstall argument.
[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;