Cara membuat Expired Date pada aplikasi Delphi 7

SNAPITU - Kali ini sya akan membahas cara membuat Expired Date untuk Aplikasi di Delphi 7.
jika kita membuat aplikasi yang tujuanya untuk komersil dan di gunakan secara masal, maka wajib kita gunakan masa Trial pada Aplikasi kita.

Cara kerjanya begini : Jika user menjalankan aplikasi sebelum masa Expired, maka akan tampil pesan bahwa masa Expired Aplikasi tinggal beberapa hari lagi , jika sudah lewat masa Expired maka Aplikasi tidak akan bisa di jalankan.


1. Buka Borland Delphinya
2. Cari kode berikut {$R*.dfm} karena kita akan meletakan kode di bawah kode tersebut.


Berikut Kodenya

Setelah Procedure Expired di buat, maka tinggal panggil pada Form1 even on activate ketikan kode ini.

Coba jalankan Aplikasi nya, atur kembali tanggal expired yang di buat tadi untuk meyakinkan apakah berfungsi dengan benar atau tidak. semoga bermanfaat.

Tweet