Cara membuat software Trial

Ketemu lagi di blog AaEzha.com yang biasa-biasa ini.
Pada kesempatan kali ini, Aa teh mau sharing bagaimana membuat software trial dengan Delphi.

Masih bingung juga? Begini neh penjelasannya.
– Ini software akan berjalan kalau belum melebihi tanggal kadaluarsa software ini.
– Tanggal kadaluarsanya ditentukan oleh kita.

Bagaimana caranya? Yuk baca lebih jauh lagi.

Ini neh source-codenya :
[delphi]procedure TForm1.FormShow(Sender: TObject);
var
tanggal,bulan,tahun : integer;
begin
tahun := 2010;
bulan := 7;
tanggal := 4;

if (Date >= EncodeDate(tahun,bulan,tanggal)) then
begin
ShowMessage(‘Oops, kadaluarsa gan!’);
Application.Terminate;
end;
end;[/delphi]

Kalau emang masih belum dipahami juga, silahkan download videonya gan!

Gak usah takut lambat gan downloadnya, selain ane upload di IDWS, ukurannya juga cuma 343kb 😀
Mantap kan gan!? Monggo dipelajari.