registrye tarih kaydı

[zaxacm]

Merhaba aşağıdaki kodlarla regestrye tarih kaydını yapıp kontrol yapmak istiyorum.Ancak bugun kısmına 18.04.2006 gibi tarih yazacağına 00 00 00 00 60 f5 e2 40 gibi şeyler yazıyor.tarihi normal olarak nasıl yazdırabilirim.

procedure TFana.tarihkontrol;
var
Reg: TRegistry;
tarih:Tdate;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKey_Local_Machine;
if not Reg.OpenKey('\SOFTWARE\program', False) then
begin
Reg.OpenKey('\SOFTWARE\progra', True);
Reg.WriteDate('bugun',date);
Reg.CloseKey ;
reg.Free;
end
else
tarih:=Date;
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\program',True);
if Reg.ReadDate('bugun')= tarih-15 then
begin
showmessage('Demo süreniz dolmuştur');
Application.Terminate;
end
finally
Reg.Free;
end;
end;

[ulu coder]

Kod: Tümünü seç

Reg.WriteDate('bugun',date)

yerine

Kod: Tümünü seç

Reg.WriteString('bugun',DateToStr(date));

yazarsanız olur fakat okurken de StrToDate demeniz gerekecek.
Neden normal biçimde yazmasını istiyorsunuz ki?
Bu arada demo kontrolü için 'Bugün' adını kullanmak ve içine tarihi String olarak yazmak pek sağlıklı olmaz gibi geldi bana. İşinize karışmak gibi olmasın...

[skyking]

slm date olarak kaydetmen sakıncalı yani ingilizce yuklu bir xp de
program bozuluyor onerim YYYY-MM-DD tipinde kayıt yapıp
ilgili date donusturmen


iyi calısmalar.

[zaxacm]

her 2 arkadaşa da teşekkür ederim.