Cara Membuat Masa Berlaku atau Expired Date di Delphi

Posted by Admin

Salam blogger, pada postingan kali ini saya akan share bagaimana Cara Membuat Masa Berlaku /Expired Date Aplikasi di Delphi. lebih jelasnya jika aplikasi tersebut sudah expired / masa berlaku nya habis, maka aplikasi tidak dapat digunakan lagi. maka jika anda menggunakan aplikasi tersebut. maka pengguna aplikasi tersebut harus meregistrasi aplikasi agar dapat di gunakan lagi.

Cara kerja procedure expired ini adalah jika user menjalankan aplikasi sebelum masa expired aplikasi berhasil maka akan tampil pesan di aplikasi jumlah hari aplikasi tersebut dapat digunakan. dan jika anda menjalankannya aplikasi yang sudah lewat masa expired nya.

Maka akan tampil pesan pada aplikasi, bahwa aplikasi tidak dapat digunakan lagi, sehingga jika ingin menggunakan aplikasi tersebut harus melakukan registrasi lagi.

Silahkan terlebih dahulu buat procedure expired di atas private.
Berikut codingnya silahkan di copas.

procedure TForm1.expired;
var tahun , bulan , tanggal  , sisa:Integer;
    tempo : TDate;
begin
  tahun:=2017;  // settingan tahun expired
  bulan:=11;    // settingan bulan expired
  tanggal:=30;  // settingan tanggal expired

  //membandingkan tanggal hari ini dengan tanggal expired
   if (Date >= EncodeDate(tahun, bulan, tanggal)) then
      begin
      MessageDlg(PChar('Masa trial software anda telah habis , Software dihentikan !!! silahkan registrasi untuk mengaktifkan software anda'),mtInformation,[mbOK],0);
        Application.Terminate;
      end
   else
    begin
    //mencari selisih tanggal antara tanggal expired , dan tanggal hari ini
      tempo:=EncodeDate(tahun , bulan , tanggal);
      sisa:=trunc(tempo-date);
       MessageDlg(PChar('Masa trial software anda tersisa ' + IntToStr(sisa) +' hari lagi'),mtInformation,[mbOK],0);
    end;
end;

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

Screenshot:

Bagi anda yang mau filenya silahkan klik tombol download yang sudah saya sediakan di bawah ini.

Tutorial Pemrograman Delphi

Share This :