オンラインでダウンロードされたソフトウェアの試用版には使用期限が設定されていることがよくありますが、これは、ユーザーが満足すれば一定期間無料で試用できるようにするための措置でもあります。商用ソフトウェアを購入できます。この記事で説明するサンプルコード関数は、Delphi で作成されたプログラムに時間制限関数を追加する方法です。ここでのデフォルトの時間制限は 30 日です。
メインのコードは次のとおりです。
ユニット Unit1;インターフェイスは Windows、メッセージ、SysUtils、クラス、グラフィックス、コントロール、フォーム、レジストリ、ダイアログを使用します;type TForm1 = class(TForm) プロシージャ FormCreate(Sender: TObject); private { プライベート宣言 } public { パブリック宣言 } end;var Form1: TForm1;実装{$R *.DFM}プロシージャ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('試用版の有効期限が切れています'); begin DeleteKey('LastRunTime'); WriteTime('LastRunTime',Date); end else begin //プログラムを初めて実行します。 WriteBool('Runned',True); // 試用期間を 30 日間に設定します WriteInteger('Duration',30); // 現在の実行時間を書き込みます。 '失敗しました !') 終了キー; 終了;