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).Share On
No comments:
Post a Comment
Silahkan masukkan komentar sobat, komentar sobat sangat berarti buat saya