Wednesday, 13 April 2016

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.....

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.