Delphi ile yazdığınız program belirttiğiniz tarihe kadar çalışsın

Delphi ile yazdığınız program belirttiğiniz tarihe kadar çalışsın

Delphi ile yazdığınız program belirttiğiniz tarihe kadar çalışsın, daha sonra demo hatası verip kapanmasın

Delphi ile yazdığınız program belirttiğiniz tarihe kadar çalışsın, daha sonra demo hatası verip kapanmasın .Bunun için aşağıdaki kodları kullanabilirsiniz.

(KODLAR)

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:=datetostr(date);//Güncel Tarih
Label2.Caption:=’12.04.2017′;//Belirlediğiniz Tarih
if strtodate(Label1.Caption)>strtodate(Label2.Caption)then
begin
showmessage(‘Hatta oluştu’);//Tarih yanlış olursa burdaki hattayı verir
halt;
end
else
if strtodate(Label1.Caption)=strtodate(Label2.Caption) then
begin
showmessage(‘Bu program Demo Sürümdür! Bugün Sonlanacak?’);//demo uyarısını verecek kısımı.
end
else
if strtodate(Label1.Caption)<strtodate(Label2.Caption)then
begin
form1.Show; //form veya sayfa bağlatı kısımı.
end;
end;
end.

Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git