ageBox(PChar(Msg), ''用户信息'', Mb_Ok + Mb_IconWarning);
Msg := ''欢迎使用'' + Company + ''的软件,如果您觉得满意的话,请注册或购买正版软件！'';
Application.MessageBox(PChar(Msg), ''建议'', Mb_Ok + Mb_IconInformation);
if T > FMaxTimes then
begin
if Application.MessageBox('' 是否注册？'', ''注册'', Mb_YesNo + Mb_IconQuestion) = Id_Yes then
begin
Msg := ''您的注册号是：“'' + FSerial + ''”'' + Chr(13) + Chr(10) +
''请您将以上序列号通过电子邮件寄给以下信箱:'' + FEmail;
Application.MessageBox(PChar(Msg), ''软件 注册'', Mb_Ok + Mb_Iconinformation);
end;
Application.Terminate;
end;
end;
end;

end.
2．控件的使用
在Delphi5.0中新建一个应用程序，在程序的引用单元中加入上述单元的引用，在主窗体的OnCreate事件中编写如下代码：
procedure TForm1.FormCreate(Sender: TObject);
var
AObj: TRegObj;
begin
try
AObj := TRegObj.Create;
AObj.MaxTimes := 30;
AObj.Company := ''吉星软件工作室'';
AObj.Email := ''test@1112.net'';
AObj.Execute;
finally
AObj.Free;
end;
end;
三、结束语
上述控件通过取得用户计算机的主板序列号作为注册码，通过文件存储程序运行次数和密钥，防止了同样的注册码和密钥在不同的计算机上都可以使用的问题，而且，用户通过简单的日期修改无法使程序继续，基本达到了软件版权保护的目的。