用C++ Builder设定措施利用时间

副标题#e#

今朝，很多应用措施都有在必然限制条件内免费利用的成果，操作该成果可以 有效限制犯科用户的利用，同时，还可以使正当用户在充实相识软件优缺点的基 础上，再抉择是否购置。本文称实现这种成果的要领为掩护要领。掩护要领的利 用在掩护正版软件的基本上，既有效地扩大了软件的利用范畴，又给用户提供了 举办充实选择的时机。

掩护要领

本文先容4种操作C＋＋ Builder 实现的掩护要领：

操作注册表限制措施利用的天数，好比限制利用30天；

操作注册表限制措施利用的次数，好比限制利用45次；

设定措施 利用的截至日期，好比设截至日期为2001年8月31日；

限制每次利用措施 的时间，好比一次答允利用50分钟。

这些掩护方法既可以单独利用，也可 以几个同时利用实现综合掩护。

编程思路

1.要领1和要领2

在措施主窗体的OnCreate事件进程中，界说注册表TRegistry类工具指针 Reg:

TRegistry ＊Reg = new TRegistry;

通过其属性RootKey定位 注册表根键，如：

Reg－>RootKey = HKEY_USERS;

//可按照需 要选择

操作OpenKey要领打开根键下的一个自界说主键，譬喻：

Reg－>OpenKey(“.DEFAULT\\Myprogram\\Records”, false)

若该主键不存在（即首次运行本措施时），需要操作CreateKey() 要领建设该主键，并将其打开，写入子键及键值如下(拜见图1)：

//“Count”键值记录本措施运行次数

Reg－ >WriteInteger(“Count”,1);

#p#副标题#e#

//“Flag”键值 记实本措施利用是否有逾期的记录

Reg－>WriteInteger (“Flag”,0);

//“First”键值记录首次运行本程 序的日期

Reg－>WriteDate(“First”,Date ());

//“Last”键值记录上一次运行本措施的日期

Reg －>WriteDate(“Last”,Date());

图 1

通过对 “First”键值的读取得到首次运行措施时的日期，再与系统当前的日 期举办较量，判定是否高出指定的天数而抉择是否终止措施的运行，从而实现使 用天数的限制。通过对“Count”键值的读取得到措施利用的次数，判 断是否高出指定的次数而抉择是否终止措施的运行，以实现利用次数的限制。

另外，通过读取“Flag”键值可以相识措施是否有逾期记录， 其值为1暗示措施利用已经逾期；读取“Last”键值可以取得上一次使 用本措施的日期。

假如颠末判定没有高出划定的利用期限，则更新 “Count”和“Last”的键值：

//利用次数加 1

Reg－>WriteInteger(“Count”, Reg－ >ReadInteger(“Count”)＋1);

//从头写入当前日期

Reg－>WriteDate(“Last”, Date());

2.要领 3

直接在主窗体的OnCreate事件进程中判定当前日期是否高出预定的截至 日期，抉择是否终止措施运行。

#p#副标题#e#

3.要领4

操作一个时间组件，在它 的OnTimer事件进程中随时检测本次措施运行的时间（从措施启动到当前）是否超 过预设的时间，从而抉择是否终止措施的运行。

详细实现

1. 限制 利用天数（如30天）

在主窗体的OnCreate事件进程中插手代码判定措施的 利用是否高出30天，若是，则终止措施运行并记录“Flag”键值为1。 当前系统日期由VCL库函数Date()获取。主要代码如下：

//界说日期型对 象

TDate firstDate, currentDate;

//获取首次运行措施日期

firstDate=Reg－>ReadDate(“First”);

//获取首 次运行措施日期

currentDate=Date();
if(currentDate.Val－firstDate.Val >30)
{
Application－>MessageBox(“本措施利用已经高出30天！\n将要封锁程 序...”,“功效”,MB_OK);
Reg－>WriteInteger(“Flag”,1);
//终止措施运行
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();
}

#p#副标题#e#

3. 配置利用截至日期（如截至日期为2001年8月31日）

该要领不需要修改注册表，在主窗体的OnCreate事件进程中插手如下代码即可：

//界说日期型变量（工具）

#p#分页标题#e#

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();
}

#p#副标题#e#

几点说明

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．限制措施的利用天数或次数是通过会见注册表实现的，对实 施该项掩护的措施纵然从头安装也不能消除限制，除非删除注册表中相应的键值 。