Membuat Aplikasi Trial Dengan Delphi Berdasarkan Fungsi Waktu (tanggal, bulan, tahun)

Tentunya teman-teman pernah menemui atau bahkan pernah menggunakan sebuah aplikasi atau perangkat lunak yang bersifat trial (percobaan) dimana beberapa fungsi dari aplikasi tersebut dibatasi. Pada tulisan sebelumnyajuga telah disampaikan ide dari pembuatan aplikasi trial yang hanya berjalan sekali saat komputer dihidupkan dan dapat berjalan kembali bila kita me-restart komputer  (komputer yang sama). Pada kesempatan kali ini akan dibuat sebuah aplikasi yang kurang lebih sama dengan tulisan sebelumnya, perbedaannya pada aplikasi sekarang ini  adalah menggunakan fungsi waktu (tanggal, bulan, tahun). Ketika program tersebut dijalankan melebihi waktu yang telah ditetapkan, maka program tersebut akan menampilkan pesan peringatan (Tergantung dari si-pemrogram, dapat juga menonaktifkan beberapa tombol dan atau mengurangi beberapa fungsi program tersebut).

Berikut adalah source code program tersebut :

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
var
tahun, bulan, hari : Integer;
begin
tahun := 2009;
bulan := 9;
hari := 9;
if (Date >= EncodeDate(tahun, bulan, hari)) then
begin
ShowMessage('This application has expired!!!!');
Close;
end;
end;
end.


Dari listing program tersebut telah ditetapkan tanggal, bulan, dan tahun program tersebut dapat dijalankan yaitu (9-9-2009) dan ketika nilai date (waktu sekarang) bernilai lebih besar daripada waktu yang telah ditetapkan, maka program akan menampilkan pesan


This application has expired!!!!


dan kemudian aplikasi ditutup (close)