Jumat, 16 November 2018

Cara Membuat Aplikasi Trial di Delhpi7

Assalamualaikum...
KENEONO - Dikesempatan kali ini saya akan share kembali tentang Delphi7, dimana kita akan belajar cara membuat aplikasi trial di delphi7, pernah kan kita menjumpai aplikasi yang dikasih trial/expired. Jadi setelah masa expired habis aplikasi tidak bisa digunakan lagi.
Nah sekarang saya akan share cara membuat aplikasi trial di delphi7.


Berikut cara kerjanya :

- Buka project yang akan di pasang trial
- Kemudian pilih Form1 - pilih tab event - onShow

- Terus hapus code begin dan masukkan script berikut ini :


var

hari,bulan,tahun : Integer;

N: Integer;

TL,TT : Integer;

begin

hari := 13;

bulan := 4;

tahun := 2016;

if (Date >= EncodeDate(tahun,bulan, hari)) then

begin

ShowMessage('Tool Expired Bos Ku ^_^ Cek Update di keneono.blogspot.com');

Form1.Close; // ini memerintahkan untuk membuat aplikasi keluar/exit

end;


[Keterangan] untuk hari, bulan, dan tahun ganti sesuai tgl yang akan dibuat trial nanti aplikasinya sampai tgl tersebut.
Untuk bagian ShowMessage bisa diganti kata-katanya sesuka hati :)

- Terakhir kalau sudah tinggal run, save dan build - Selesai

Sekian artikel ini tentang cara membuat aplikasi trial di delphi7 semoga bisa bermanfaat untuk sobat semua. Terimakasih..
Wassalamualaikum.....

BERITA LENGKAP DI HALAMAN BERIKUTNYA

Halaman Berikutnya

>> PERHATIKAN !!! <<

- Gunakan kata-kata yang bijak saat berkomentar ya sob.
- Berkomentar dengan Foto <i rel="image">URL_GAMBAR</i>
- Berkomentar dengan Code HTML silakan Parse dulu.