我們經常看到很多網上下載的試用版軟件，都有使用時間的限制，就其商業角度而言也是處于軟件效益保護的一種措施，可以讓用戶免費試用一段時間，若滿意就可以購買商業軟件。本文所述實例代碼功能就是如何為Delphi所編寫的程序添加使用時間的限制功能，這里默認的時限為30天。
主要代碼如下：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Registry, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);var registerTemp : TRegistry; curDate : TDateTime;begin registerTemp := TRegistry.Create; with registerTemp do begin RootKey := HKEY_LOCAL_MACHINE; //判斷是否初次運行程序 if OpenKey('Software/MySoftware',True) then begin if ReadBool('Runned') then //不是第一次運行 begin curDate := Date; if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') then begin //當前的系統時間超出了使用期限 ShowMessage('試用版已到期'); exit; end else begin DeleteKey('LastRunTime'); WriteTime('LastRunTime',Date); end; end else begin //初次運行程序 DeleteKey('Runned'); WriteBool('Runned',True); //設置試用期限30天 WriteInteger('Duration',30); //寫入當前運行時間 WriteTime('LastRunTime',Date); end; end else begin ShowMessage('Fails!'); end; CloseKey; end;end;end.新聞熱點
疑難解答
圖片精選
