在Delphi中編制軟件版權保護控件(3)

2．控件的使用

在Delphi5.0中新建一個應用程序，在程序的引用單元中加入上述單元的引用，在主窗體的OnCreate事件中編寫如下代碼：

procedure TForm1.FormCreate(Sender: TObject);
var
AObj: TRegObj;
begin
try
AObj := TRegObj.Create;
AObj.MaxTimes := 30;
AObj.Company := '吉星軟件工作室';
AObj.Email := '[email protected]';
AObj.Execute;
finally
AObj.Free;
end;
end;

三、結束語

上述控件通過取得用戶計算機的主板序列號作為注冊碼，通過文件存儲程序運行次數和密鑰，防止了同樣的注冊碼和密鑰在不同的計算機上都可以使用的問題，而且，用戶通過簡單的日期修改無法使程序繼續，基本達到了軟件版權保護的目的。