zack
Jumlah posting : 67 Join date : 13.04.11
| Subyek: Membuat Aplikasi Trial Dengan Delphi Berdasarkan Fungsi Waktu (tanggal, bulan, tahun) Fri Apr 15, 2011 2:59 am | |
| Berikut adalah source code program tersebut :
Source Code : (Tested on Delphi 6) unit Unit1; interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); var tahun, bulan, hari : Integer; begin tahun := 2009; bulan := 9; hari := 9; if (Date >= EncodeDate(tahun, bulan, hari)) then begin ShowMessage('This application has expired!!!!'); Close; end; end; end. Dari listing program tersebut telah ditetapkan tanggal, bulan, dan tahun program tersebut dapat dijalankan yaitu (9-9-2009) dan ketika nilai date (waktu sekarang) bernilai lebih besar daripada waktu yang telah ditetapkan, maka program akan menampilkan pesan This application has expired!!!! dan kemudian aplikasi ditutup (close). | |
|