Desmond
10-01-2003, 03:45 PM
<HTML> <HEAD> <TITLE>Setting my Application to Expire After Thirty Days</TITLE> </HEAD> <BODY> <h3>Setting my Application to Expire After Thirty Days</h3> <b>Document ID: IR10061</b> <hr> The information in this article applies to: <ul> <li>AutoPlay Media Studio 5.0 Standard Edition</li> <li>AutoPlay Media Studio 5.0 Professional Edition</li> </ul> <hr> <h3>SUMMARY</h3> <p>This article describes how to set your application to expire after thirty days.</p> <h3>DISCUSSION</h3> <p>To make your application expire after thirty days, store the date the program was first run in the registry, and every consecutive time that the program is run, compare the registry to the expiry date (30 days after your program was first installed).<br> <br> To accomplish this, insert the following code into the On Startup event of your project:<pre><code>days_left = 30;
date_installed = Application.LoadValue("My Application", "Date Installed");
date_installed = String.ToNumber(date_installed);
time_limit = 30; --the length of the trial period, in days
if date_installed == 0 then
Application.SaveValue("My Application", "Date Installed", System.GetDate(DATE_FMT_JULIAN));
else
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end
if days_left < 1 then
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
else
Dialog.Message("Trial Period", "You have "..days_left.." days left in your trial period.");
end</code></pre> <h3>MORE INFORMATION</h3> <p>For more information please see the following topics in the AutoPlay Media Studio 5.0 help file:</p> <ul> <li><b>Program Reference | Actions | Application | Application.LoadValue</b></li> <li><b>Program Reference | Actions | Application | Application.SaveValue</b></li> <li><b>Program Reference | Actions | System | System.GetDate</b></li> </ul> <p>KEYWORDS: AutoPlay Media Studio 5.0, Expire, Trial, Version </p> <hr> <FONT SIZE=1> Last reviewed: October 1, 2003<br> Copyright © 2003 <A HREF="http://www.indigorose.com" target="blank">Indigo Rose Corporation</a>. All rights reserved.<br> </FONT> </BODY> </HTML>
date_installed = Application.LoadValue("My Application", "Date Installed");
date_installed = String.ToNumber(date_installed);
time_limit = 30; --the length of the trial period, in days
if date_installed == 0 then
Application.SaveValue("My Application", "Date Installed", System.GetDate(DATE_FMT_JULIAN));
else
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end
if days_left < 1 then
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
else
Dialog.Message("Trial Period", "You have "..days_left.." days left in your trial period.");
end</code></pre> <h3>MORE INFORMATION</h3> <p>For more information please see the following topics in the AutoPlay Media Studio 5.0 help file:</p> <ul> <li><b>Program Reference | Actions | Application | Application.LoadValue</b></li> <li><b>Program Reference | Actions | Application | Application.SaveValue</b></li> <li><b>Program Reference | Actions | System | System.GetDate</b></li> </ul> <p>KEYWORDS: AutoPlay Media Studio 5.0, Expire, Trial, Version </p> <hr> <FONT SIZE=1> Last reviewed: October 1, 2003<br> Copyright © 2003 <A HREF="http://www.indigorose.com" target="blank">Indigo Rose Corporation</a>. All rights reserved.<br> </FONT> </BODY> </HTML>