/终止程序运行
Application－>Terminate();
}
2. 限制使用次数（如45次）
在主窗体的OnCreate事件过 程中加入代码判断程序的使用是否超过45次，若是，则终止程序运行并记录 “Flag”键值为1。主要代码如下：
if(Reg－ >ReadInteger(“Count”) > 45)
{
Application－>MessageBox(“本程序使用已经超过了45次！\n程序即将 关闭...”,“结果”,MB_OK);
Reg－ >WriteInteger(“Flag”,1);
Application－>Terminate();
}
3. 设置使用截止日期（如截止日期为2001年8月31日）
该方法不需要修改注册表，在主窗体的OnCreate事件过程中加入如下代码即可：
//定义日期型变量（对象）
TDate endDate, currentDate;
//设置日期分隔符
DateSeparator = ‘－'';
//设置日期表达格式
ShortDateFormat = “yyyy/mm/dd”;
currentDate=Date();
//日期转换
endDate=StrToDate(“2001－08－31”);
if(currentDate.Val >endDate.Val)
{
Application－>MessageBox(“已经超过期限，本程序已不能使用！\n将 要关闭程序...”,“结果”,MB_OK);
file://Reg－>WriteInteger(“Flag”,1);
Application－>Terminate();
}
4. 限制每次使用的时间（如限用50分钟）
该方法不需要 修改注册表，在一个TTimer组件的OnTimer事件过程中，随时检测系统当前时间与 程序的启动时间之间是否超过50分钟即可。其中程序的启动时间可以在主窗体的 OnCreate事件过程中取得，这需要定义日期时间型全局变量startDateTime和 currentDateTime：
TDateTime startDateTime, currentDateTime;
为获得程序的启动时间，在主窗体的OnCreate事件过程 中加入如下代码：
startDateTime = Now();
在时间组件的OnTimer 事件过程中加入以下代码：
currentDateTime=Now();
if(currentDateTime.Val － startDateTime.Val > 50.0/(60＊24))
{
//计时器停止计时，等待消息框关闭
Timer1－>Enabled = false;
Application－>MessageBox(“本次程序已经运行了50分钟！\n将要关闭 程序...”,“结果”,MB_OK);
//关闭程序
Close();
}
几点说明
1．可以将注册表根键定位为其他的键(参见图 1)，其主键的定义应具有“个性化”，也可以利用已有的主键，层次 可以多些，这样隐蔽性更好，能最大限度地保护应用程序。
2．为了防止 倒拨系统时钟至上一次使用程序的日期之前，通过读取“Last”键值 可以对此进行检测和处理，代码如下：
TDate lastDate, currentDate;
//获得上一次运行本程序的日期
lastDate = Reg－>ReadDate(“Last”);
currentDate = Date();
if(currentDate.Val< lastDate.Val)
{
Application－>MessageBox(“系统时钟的日期已被回拨！\n本程序即将 关闭...”,“结果”,MB_OK);
Reg－>WriteInteger(“Flag”,1);
//终止程序的运行
Application－>Terminate();
}
3．一旦“Flag”键值为1，说明程序已经过期，可用以下代码限制再 次运行程序：
if(Reg－>ReadInteger(“Flag”)==1)
{
Application－>MessageBox(“本程序使用已经过期！\n将要关闭程 序...”,“结果”,MB_OK);
Application－>Terminate();
}
4．限制程序的使用天数或次数是通过访问注册表实现的，对实 施该项保护的程序即使重新安装也不能消除限制，除非删除注册表中相应的键值 。 |
