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;  

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.

1. procedure TForm1.FormActivate(Sender: TObject);  
2. begin  
3.   expired;  
4. end;  

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.