Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
Selamat siang agan-agan.Pada tutorial kali ini saya akan membahas mengenai Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7.Maksudnya
udah ngerti kan !? Kalau kita membuat aplikasi yang bertujuan untuk
komersil dan di gunakan secara massal , maka kita harus membuat masa
trial pada aplikasi kita.Nantinya bila sudah expired , maka user akan
diminta untuk registrasi untuk menggunakannya lagi.Bungung !? Sama.Maka
dari itu , lebih baik kita contoh kan saja dengan praktek.
Cara
kerjanya seperti ini , bila user menjalankan aplikasi sebelum masa
expired , maka akan tampil pesan bahwa masa expired aplikasi tinggal
beberapa hari lagi.Namun bila user menjalankan aplikasi setelah lewat
masa expired , maka aplikasi tidak akan bisa di jalankan.Lalu tunggu
apalagi !? Silahkan buka borland Delphi 7 anda.Kita akan membuat procedure dengan nama expired.Ketikan kode berikut setelah {$R *.dfm}
- procedure expired;
- var tahun , bulan , tanggal , sisa:Integer;
- tempo : TDate;
- begin
- tahun:=2011; // tahun expired
- bulan:=07; //bulan expired
- tanggal:=30; //tanggal expired
- //membandingkan tanggal hari ini dengan tanggal expired
- if (Date >= EncodeDate(tahun, bulan, tanggal)) then
- begin
- ShowMessage(‘Masa trial software anda telah habis , silahkan registrasi’);
- Application.Terminate;
- end
- else
- begin
- //mencari selisih tanggal antara tanggal expired , dan tanggal hari ini
- tempo:=EncodeDate(tahun , bulan , tanggal);
- sisa:=trunc(tempo-date);
- ShowMessage(‘Masa trial anda tersisa ’ + IntToStr(sisa) +‘ Hari lagi’ );
- end;
- end;
Untuk
tanggal expired , anda bisa memodifikasinya dengan mencari tau tanggal
kapan pertama kali aplikasi anda di jalankan dengan memanfaatkan
fungsi dari registry.Anda bisa melihatnya DISINI.
Okey
, setelah procedure expired dibuat maka anda tinggal memanggilnya pada
form1 event on activate.Ketikan kodenya seperti di bawah ini.
- procedure TForm1.FormActivate(Sender: TObject);
- begin
- expired;
- end;
Coba
jalankan aplikasi anda.Atur-atur kembali tanggal expired yang di tulis
tadi untuk mengecek apakah berfungsi dengan benar atau tidak.Sekian
postingan kali ini semoga bermanfaat.
sumber :http://aulia.allalla.com/1/2010/11/cara-membuat-expired-date-untuk-aplikasi-di-delphi-7/#more
Terima kasih gan. Izin praktek :-D
ReplyDelete