Registry ye nasıl kayıt yaptırabilirim

[gurcankilinc]

Edit'e girilen bilgiyi nasıl kayıt yaptırabilirim soruma, registry kaydı olabilir demişsiniz. Teşekkür ederim. Ama registry'ye nasıl kayıt yapacağım bir örnek yazabilirseniz sevinirim.

[sherlockholmes]

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

arama yaparak sonuca daha kısa sürede ulaşbilirsiniz ....

[Kuri_YJ]

örnek bir alıntı kod

Kod: Tümünü seç

procedure TFrameUdd.LVReportDblClick(Sender: TObject);
//Var
//  FMyreg : TRegistry ;
begin
  LoadReport(LVReport.Selected.Caption);
//  If EditPrintPreview.Checked Then
    RptUdd.DeviceType := dtScreen ;
{  // <ADNAN> 06.10.2004
  FMyReg := TRegistry.Create;
  try
    FMyReg.RootKey := HKEY_CURRENT_USER;
    if FMyReg.OpenKey('\Software\Barsan\ReportDesign', True) then
    begin
      if EditPrintPreview.Checked then
        FMyReg.WriteString(FModul,'"1"')
      Else
        FMyReg.WriteString(FModul,'"0"') ;
      FMyReg.CloseKey;
    end ;
  finally
      FMyReg.Free;
      inherited;
  end;
}
  ShowReport ;
end;

Kolay Gelsin

[ALUCARD]

lütfen diğer başlığa devam ediniz yeni başlık açmayınız

[vedatkaba]

Kod: Tümünü seç

uses kısmına registry yazmayı unutmayın !!!!!!!/Anahtarın var olup olmadığı
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('\SOFTWARE',false);  //False değeri eğer anahtar yoksa oluşturulmaması için
if R.KeyExists('Delphi Turk') then //KeyExists() ile anahtarın olup olmadığı soruluyor
  ShowMessage('Anahtar bulundu')
  else
  ShowMessage('Anahtar bulunamadı');
R.CloseKey;
R.free;

//Yeni Anahtar Oluşturma
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('\Yeni Anahtar',true);  //True değeri eğer anahtar yoksa oluşturulması için
R.CloseKey;
R.free;

//Anahtar Silme
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
if R.KeyExists('Anahtar Adı') then //KeyExists() ile anahtarın olup olmadığı soruluyor
 R.DeleteKey('Anahtar Adı'); //DeleteKey() ile verilen anahtar siliniyor
R.CloseKey;
R.free;



//Dizenin olup olmadığı
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('\Yeni Anahtar',false);
if R.ValueExists('Delphi') then //KeyValue() ile dizenin olup olmadığı soruluyor
  ShowMessage('Dize bulundu')
  else
  ShowMessage('Dize bulunamadı');
R.CloseKey;
R.free;

//Registry'de Dize silme
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.openkey('Yeni Anahtar',false);
 R.DeleteValue('delphi'); //DeleteValue() dize silmek için kullanıldı
R.CloseKey;
R.free;

//Registry'de Değer yazma
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('\Yeni Anahtar',false);
   R.WriteString('Delphi','Borland'); //WriteString('Dize Adı','Değer') ile değer yazıldı
   R.CloseKey;
R.free;


//Registry'de Değer okuma
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('\Yeni Anahtar',false);
if R.ValueExists('Delphi') then
 ShowMessage(R.ReadString('Delphi'))
 else
 ShowMessage('Dize bulunamadı');
R.CloseKey;
R.free;

soruyu yazmadan önce lütfen arama yapalım.http://www.delphiturkiye.comburdada bir örnek vardı dosyalar kısmında.onunda indir incele.ama daha ve daha fazlası yap,,,,,,,,,,,,,,,,kolay gelsin.

[ikra]

arkadaslar peki registry e yapilan kayitlar biz silmedikce ebedi orada kaliyorlar mi? yoksa bu kayitlar bilgisayarin kapanmasi ile siliniyorlar mi?

[rsimsek]

Silmedikçe silinmez

[emrahkaraarslan]

işte bu silmedikce silinmediği için windows şişiyor regsitry tutuma soryunu olmasa çok güzel olurdu ama maalesef windowsun böyle bir problemi var

[rsimsek]

O zaman da ayarlarını INI dosyada tutabilirsin

[aslangeri]

Silmedikçe silinmez

[rsimsek]

O soruya başka nasıl cevap verilir ki mikisoft a da güvenilmez ya