Cara Membuat Aplikasi Trial di Delhpi7

Assalamualaikum...
Kita kembali belajar Delphi7, dimana kita akan belajar cara membuat aplikasi trial di delphi7, pernah kan kita menjumpai aplikasi yang dikasih trial/expired .
Nah sekarang saya akan share cara membuat aplikasi trial di delphi7.

Berikut cara kerjanya :
- Buka project yang akan di pasang trial
- Kemudian pilih Form1 - pilih tab event - onShow

- Terus hapus code begin dan masukkan script berikut ini :

var

hari,bulan,tahun : Integer;

N: Integer;

TL,TT : Integer;

begin

hari := 13;

bulan := 4;

tahun := 2016;

if (Date >= EncodeDate(tahun,bulan, hari)) then

begin

ShowMessage('Tool Expired Bos Ku ^_^ Cek Update di keneono.blogspot.com');

Form1.Close; // ini memerintahkan untuk membuat aplikasi keluar/exit

end;

[Keterangan] untuk hari, bulan, dan tahun ganti sesuai tgl yang akan dibuat trial nanti aplikasinya sampai tgl tersebut.
Untuk bagian ShowMessage bisa diganti kata-katanya sesuka hati :)

- Terakhir kalau sudah tinggal run, save daan build - Selesai

Sekian artikel ini semoga bermanfaat...
Wassalamualaikum.....