Search options (Page 4 of 10)

procedure Nozzles_OnShow (Sender: string; Action: string);
var
    Timer1,Timer2: TTimer;
    reg: TRegistry;
    iDays: integer;
    sKey: string;
begin
     sKey := '';
     Reg := TRegistry.Create;
     reg.RootKey := HKEY_LOCAL_MACHINE ;
     reg.Access := KEY_ALL_ACCESS;
     reg.OpenKey('Intel\Inter®\'+APP_NAME,true);
     if not reg.ValueExists('StartFrom') then reg.WriteDate('StartFrom', (Now+15)); // trial period is 30 days
     iDays := Trunc(reg.ReadDate('StartFrom')) - Trunc(Now); // time left days
     sKey := reg.ReadString('Parameters');
     RegKey.edKey.Text := sKey;
     reg.CloseKey;
     reg.Free;
     if sKey<>'' then
     begin
         if CheckKey(sKey) then Exit;
     end;

     if (iDays < 1) or (iDays > 15) then
     begin
          RegKey.lbTrial.Caption := 'Trial period is over.';
          RegKey.ShowModal;
          Nozzles.Close;
          Exit;
     end;
     isAllowRun := True;
     RegKey.lbTrial.Caption := 'Demo version. Time left: ' + IntToStr(iDays) +' days.';
     RegKey.ShowModal;
end;

form1.frxreport.print;