Mega Code Archive
Registry
<![CDATA[
//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
]]>