| Author |
Message |
Adam Allen
| | Posted on Friday, April 29, 2005 - 7:25 am: | |
Hi, I have a program registered with valid key, few days later user changed
“The date the date was in correct”. Now the program shows expired even after registered
Try to register your program, then change the date from 4/29 to 4/28 and run the program. You will know what I mean.
Thanks
|
Adam Allen
| | Posted on Friday, April 29, 2005 - 8:08 am: | |
Hi again,
I added one line on.
function TRegware4.GetDaysLeft : Integer;
begin
if Registered then result:=-1; //added new on 4/29/05
if CheckClockTampered then // User tampered with clock
Result := 0 // Consider program as expired
else if (not Registered) and (Timebomb = true) then
begin
Result := Trunc(FExpireTime - Date);
if Result < 0 then Result := 0;
end
else // Clock not tampered and program registered
Result := -1;
end;
procedure TRegware4.Loaded;
begin
inherited;
CheckVariablesSet;
LoadRegistryValues;
if Registered then exit; //added new on 4/29/2005
if (not Registered) and (CheckClockTampered) then
ClockChange // Signal event that the user has tried to change the clock (GetDaysLeft will automatically report that the program has expired)
else if not Registered then
begin
ShowNag;
SaveRegistryValues; // We need to resave for the clock-tamper feature
if CheckExpired = true then
Expire;
end;
end;
Looks worked, unless you see problem with this line.
Please advice
Thanks |
|