Cara Membuat Program Trial Pada Delphi
IN DELPHI PROGRAMING - ON 12.09 - NO COMMENTS


Assalamualaikum,,
Kali ini saya akan berbagi mengenai bagaimana membuat sebuah aplikasi yang trial/expired. misalkan kita mempunya sebuah aplikasi, nah kita ingin aplikasi ini kita publikasikan promosi dari aplikasi tersebut, tapi kita tidak ingin aplikasi tersebut bersifat selamanya kepada para semua orang yang download, nah kita inginkan aplikasi itu cuma trial, yah batas waktunya sebulan atau 2 bulan. setelah lewat dari tahun,bulan dan tanggal yang telah kita tetapkan, maka apabila aplikasi tersebut dijalankan, maka akan menampilkan pesan misalnta, " aplikasi ini sudah expired, silahkan download atau beli untuk yang pro" atau apalah terserah anda.

Oke kita lansung saja, masukkan sintak ini pada program yang anda ingin trial kan, pilih untuk event on show.

var
tahun, bulan, hari : Integer;
begin
tahun := 2013;
bulan := 12;
hari := 2;
if (Date >= EncodeDate(tahun, bulan, hari)) then
begin
ShowMessage('Aplikasi Ini Sudah Expired, untuk dapat menggunakannya lagi , silahkan anda download versi pro');
Close;
end;
end;

Sekarang coba jalankan, sesuaikan sama tahun,tgl dan bulan sekarang atau yang sesudahnya. maka akan menampilkan pesan seperti ini, dan aplikasi akan keluar.



oke, untuk tutorial kali ini, sekian dulu.

Salam Delphiers