Skip to main content
Kene Ono

follow us

Cara Membuat Aplikasi Trial di Delhpi7

Assalamualaikum...
Kita kembali belajar Delphi7, dimana kita akan belajar cara membuat aplikasi trial di delphi7, pernah kan kita menjumpai aplikasi yang dikasih trial/expired .
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 daan build - Selesai

Sekian artikel ini semoga bermanfaat...
Wassalamualaikum.....

You Might Also Like:

Comment Policy: Silahkan tuliskan komentar Anda yang sesuai dengan topik postingan halaman ini. Komentar yang berisi tautan tidak akan ditampilkan sebelum disetujui.
Buka Komentar