registry de if sorgusu

[webaytek]

registry de herhangi bir anahtar yada bir string okutup ona göre bir işlem yapmak istiyorum mesela

HKEY_LOCAL_MACHINE\SOFTWARE\Benim Programım içinde 3 tane string war bir tanesinde sayaç rakamını saklayacağım (saklamayacağım da kaydedeceğim).

Burada sorum şu

HKEY_LOCAL_MACHINE\SOFTWARE\Benim Programım\Counter değeri 50den büyük mü
büyükse mesaj ver ('Kullanım hakkınız Bitti')
büyük değilse mesaj ver (50 - counterdeğeri kadar daha kullanabilirsiniz)

Lütfen çok önemli ŞİMDİDEN TEŞEKKÜRLER

[P206]

Kod: Tümünü seç

var
Reg: TRegistry;
ad:string;
begin
        reg:=TRegistry.Create;
        reg.RootKey:=HKEY_LOCAL_MACHINE\SOFTWARE;
        REG.OpenKey('\Benim Programım\Counter',true);
        ad:=reg.ReadString('adet');
        if  strtoint(ad)>50 then showmessage('Hakkınız doldu...')

Kolay gelsin.
Adet burada counter keyinin içindeki adet adlı kaydın değerini ad değişkenide atıyorsun.

Not: uses a registry i eklemeyi unutma

[TRSoft]

registry hakkında bir çok şeyin anlatıldığı makale..

http://www.delphiturkiye.com/index.php?page=regini.htm

[webaytek]

TRSoft ellerin dert görmesin
Ben arama'yı bazen kullanamıyorum - hata veriyor da bu süper oldu saol

[mussimsek]

Ben arama'yı bazen kullanamıyorum - hata veriyor da bu süper oldu saol

ne hatası veriyor? Hatayı ve kullandığınız işletim sistemi ve web browser bilgilerini bana ulaştırabilir misiniz?

Kolay gelsin.

[webaytek]

hata server la ilgili bi hata idi 5 kere rastgeldim o hataya
windows 2000 ile internet explorer 6.0.2800.1106 ve dün dahil çıkmış olan tüm windows update yamaları yüklü kullanılan bağlantı ADSL en az 50 bilgisayara paylaştırılmış durumda ancak problem sadece sizin serverınızdan (yada php'den) kaynaklı bi sorun
Arama butonu hata verince
( ki linki bu olmalı : search.php )

ben de
search.php?mode=results
yazıp bağlanabiliyorum.