Tarih Kısıtlaması !!!

[sadettinpolat]

Ben yeni proje istemedim ki sadece soruma cevap arıyorum.

daha çok ararsın o zaman

[menderes]

Kolay gelsin... Fikir verme açısından bir açıklama yazayım. Yalnız bu iş her program verme olayında son tarihi vermek gerekecek. Belki bir fikir verebilir size...

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject);
var
tar1:string;
begin
tar1:='15.10.2005';// istenilen son tarih
Edit1.Text:=DateToStr(DateTimePicker1.Date);// Buraya başlama tarihini yazınız...
if StrToDate(Edit1.Text)=StrToDate(tar1) then
ShowMessage('Süre doldu ! Lütfen Program Satın almak için Satıcınızla Görüşün');
Application.Terminate;
end;

[mrmarman]

@ozcank

- Özür dilerim, bu işi öğrenmek istediğini sanmıştım. Yanıldığım için üzgünüm...

[ozcank]

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
Var R:TRegistry;
begin
IF DATE>=StrToDate('01.01.2006') THEN
BEGIN
R:=TRegistry.Create;
R.RootKey:= HKEY_CURRENT_USER;
IF R.CreateKey('Software\Uygulama') THEN

SHOWMESSAGE('Kullanım süresi doldu');
Halt;
END;

R:=TRegistry.Create;
R.RootKey:= HKEY_CURRENT_USER;
IF R.OpenKey('Software\Uygulama',FALSE) THEN
BEGIN
SHOWMESSAGE('Kullanım süresi doldu');
Halt;
END;

end;



Buraya kadar herşey tamam ama dediğim gibi tarihi değişinc onu tekrar nasıl yazdıracam değişimi ben program içinden yapıp derleyip müşteriye gönderince verdiğim tarihe kadar program çalışmalı .Yardımlarınızı bekliyorum.

[fduman]

ozcank bu işi öğrenmeye falan çalışmıyor. o yüzden hiç üzülme mrmcop. ozcank nın pascal bilgisini de ilerletmesi lazım. google da da bol bol arama yapması. ancak o bunlar yerine kodu forumdakilere yazdırıyor.

kendine zarar veriyorsun arkadaş. bu işi öğrenmek istiyorsan tecrübelilerin fikirlerine biraz kulak as.

aksi halde forumdakilerin tepkisini çekeceksin. soru sormanın da bir adabı var. öncelikle, senin soruna yazdığım cevabı anlayıp uygulayabiliyor olman lazım. buradaki herkes vakit harcayıp yanıt yazıyor. sen anlamayınca bir daha, bir daha yazıyor. 0 a 0, elde var 0.

ben başka bir başlıkta da sana tavsiyede bulundum ancak pek kulak asmadın. umarım biraz düşünürsün.

[fduman]

Onguard kullanman daha iyi olur. diyeceğim ama sen aramadan onguard da nedir diyeceksin ya. Turbopower onguard sourceforge diye google da. forumda da onguard diye arama yap.