Cara Membuat Aplikasi Trial di Delhpi7

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.....
Baca Juga
SHARE
Subscribe to get free updates

Related Posts

Posting Komentar