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}


  1. procedure expired;  
  2. var tahun , bulan , tanggal  , sisa:Integer;  
  3.     tempo : TDate;  
  4. begin  
  5.   tahun:=2011;  // tahun expired  
  6.   bulan:=07;    //bulan expired  
  7.   tanggal:=30;  //tanggal expired  
  8.   //membandingkan tanggal hari ini dengan tanggal expired  
  9.    if (Date >= EncodeDate(tahun, bulan, tanggal)) then  
  10.       begin  
  11.         ShowMessage('Masa trial software anda telah habis , silahkan registrasi');  
  12.         Application.Terminate;  
  13.       end  
  14.    else  
  15.     begin  
  16.     //mencari selisih tanggal antara tanggal expired , dan tanggal hari ini  
  17.       tempo:=EncodeDate(tahun , bulan , tanggal);  
  18.       sisa:=trunc(tempo-date);  
  19.       ShowMessage('Masa trial anda tersisa ' + IntToStr(sisa) +' Hari lagi' );  
  20.     end;  
  21. 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.


  1. procedure TForm1.FormActivate(Sender: TObject);  
  2. begin  
  3.   expired;  
  4. 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.

0 Response to " Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!