Registry


            //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;
//Belli bir anahtarın altındaki tüm anahtarların listelenmesi
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',false);
R.GetKeyNames(ListBox1.Items);
R.CloseKey;
R.free;
//Belli bir anahtarın altındaki tüm değerlerin listelenmesi
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('\SOFTWARE\Microsoft\Internet Explorer\Main',false);
R.GetValueNames(ListBox1.Items);
R.CloseKey;
R.free;
kenan180@mynet.com
System Delphi
