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.

Simak Juga Tutorial Lainnya:

Delphi 7

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Mengecek Primary Key Pada Saat Input Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7

Procedure

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7
• Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7
• Cara filter input karakter pada komponen edit di delphi 7
• Mengenal Procedure dan Function Pada Delphi 7

Info

• Cara Mencegah Flash CS4 Terkunci DI Windows 7
• Mesin Penukar Koin
• Masuk Bengkel , Motor Malah Gosong
• Proses Hamil Yang Bikin Ngakak
• Pesawat Terbang Yang Jadi Pajangan Di Halaman Rumah
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Membuat Kue Dengan Photoshop
• Uniknya Photoshop Di Dunia Nyata
• Rush di Tabrak Mio Sampai Nungging
• Cara Membuat Animasi Sederhana Di Delphi 7
• Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7
• Mengetahui lama komputer dinyalakan dengan delphi 7
• Cara filter input karakter pada komponen edit di delphi 7
• Tutorial Delphi 7 Menampilkan Data Pada Diagram Grafik
• Mengenal Procedure dan Function Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-4
• Tutorial Cara Install Komponen Quick Report 4 Pro Pada Delphi 7
• Cara Install Komponen Quick Report Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-3
• Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7
• Koneksi XAMPP , DAC MySQL dan Delphi 7
• Enkripsi Yang Bisa Difungsikan Untuk Serial Number Ala Saya
• Menyembunyikan File *.rar Di Dalam File Foto..
• Perhitungan Tabel Dengan Query Pada Delphi 7