Jadi bagi yg belom tau aja ,apabila tggal telah melewati yg kita inputkan maka injek nya akan close sendiri dan gak bsa dibuka ,coding nya aada dibawah ini [/spoiler]



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 := 2014;
bulan := 10;
hari := 10;
if (Date >= EncodeDate(tahun, bulan, hari)) then
begin
ShowMessage('This application has expired!!!!');
Close;
end;
end;
end.[spoiler]

(10-06-2014 02:41 PM)ilhamhafidz Wrote:  
Jadi bagi yg belom tau aja ,apabila tggal telah melewati yg kita inputkan maka injek nya akan close sendiri dan gak bsa dibuka ,coding nya aada dibawah ini [/spoiler]



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 := 2014;
bulan := 10;
hari := 10;
if (Date >= EncodeDate(tahun, bulan, hari)) then
begin
ShowMessage('This application has expired!!!!');
Close;
end;
end;
end.[spoiler]

kalo tanggal di lepi di mundurin masih kebuka gak tuh man

klu tanggal di lepi di mundurin msh bisa di buka.. udah ane tested.. nice share ya om...

Om Momod, Ini Bukan'a Udah Ane Share Yah...

Cek https://www.fornesia.com/Thread-Share-Me...ulan-tahun