Delphi 中编制软件版权保护控件
新疆塔里木农垦大学农业工程学院 843300 陈立平
电子邮件：newstone@taru.edu.cn
摘要 本文介绍了在 Delphi5.0 开发环境中通过使用其面向对象的特性，编写了一个实用的版权保护控
件，为程序开发人员有效保护自己的劳动成果和版权提供了一种实用和快速的方法和手段。
关键词 Delphi 控件 版权 保护
一、概述
软件作为一种人类智力劳动成果的一种表现形式，融会了设计者和开发者辛勤的劳动和汗水，然
而，由于用户观念上的差异和盗版软件的泛滥，软件开发者的权益往往得不到有效的保护，因此，作
为必要的手段-----软件的自身保护也就在特定的环境下被重视起来。
然而，正所谓，“魔高一尺，道高一丈”，保护和破解的矛盾关系在始终持续着，要想找到一种万
能的保护方法，却也不是那么简单的事。但是，如果开发者使用的保护手段连一般用户都能破解的话
（如：修改系统日期），这样的保护则显然达不到保护软件版权的目的。
基于此，笔者利用 Delphi5.0 面向对象的特性，设计开发了一个实用的版权保护控件，以为程序
开发者提供一种简易的软件保护手段。
二、实现方法
1．在 Delphi5.0 中新建一个单元文件，书写代码如下，保存：
unit RegObj;
interface
uses
Windows, Messages, SysUtils, Classes, Forms;
type
TRegObj = class
private
FSerial: string; //主板序列号
FKey: string; //密码
FMaxTimes: Integer; //最大运行次数
FCompany: string; //公司名称
FEmail: string; //联系用的电子邮件
protected
procedure SetSerial; //取得主扳的序列号
procedure GetKey; //从用户序列号文件中读取序列号
function GetTimes: Integer; //从文件中读取程序的运行次数
function CheckKey: Boolean; //检查序列号和密码是否匹配的函数
public
constructor Create;
function Execute: Boolean; //运行对象方法
published
property Company: string read FCompany write FCompany;
