Cara Membuat Expired Date Aplikasi di Delphi 2010

By: QMPC Network on 17.54

Pada tutorial kali ini penulis akan membahas mengenai bagaimana cara membuat expired date aplikasi di Delphi 2010. 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, user akan diminta untuk registrasi untuk dapat digunakan lagi. Oleh karena 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. Tidak usah panjang lebar karena akan menjadi luas :D

Langkah 1 :
Silahkan buka Delphi 2010 pembaca. 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:=2015;  // tahun expired 
  bulan:=01;    //bulan expired 
  tanggal:=01;  //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;

Langkah 2 :
Untuk tanggal expired , pembaca bisa memodifikasinya dengan mencari tau tanggal kapan pertama kali aplikasi pembaca dijalankan dengan memanfaatkan fungsi dari registry. Pembaca bisa melihatnya dipostingan penulis disini. Ok setelah procedure expired dibuat maka pembaca tinggal memanggilnya pada form1 event on show. Ketikan source code seperti di bawah ini :

procedure TForm1.FormActivate(Sender: TObject); 
begin 
  expired; 
end;

Langkah 3 :
Coba jalankan aplikasi dengan cara klik F9. Atur-atur kembali tanggal expired yang di tulis tadi untuk mengecek apakah berfungsi dengan benar atau tidak. Dan berikut adalah hasilnya :

Langkah 4 :
Selamat mencoba :D