registri hakkında

[semenderip]

Procedure RegYaz(Baslik:String; Deger : dWord);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER; // Dalın ana başlığı seçilir...
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', False); // ilgili dal açılır...
If NOT Reg.ValueExists(Baslik) then Reg.CreateKey(Baslik); // Baslık Yoksa Oluşturulur...
Reg.WriteBinaryData(Baslik, Deger, SizeOf(Deger)); // Baslik için değer yazılır...
Reg.CloseKey; // Key kapatılır...
Reg.Free;
end;


Yukardaki örnegi kendi projeme uyguladım ve 4 adet edit koydum birincisinde deger nereye yazılacaksa orayı mesela HKEY_CURRENT_USER
ikincide oluşacak dosya üçte deger vs yazdım registiriye kayıt yaptırdım fakat benim yapmak istediğim ben HKEY_CURRENT_USER yerine MACHİNE kısmınada yazmak istiyorum yani birinci kısma combo box koyup içine registirdeki anahtarları yazıp ordan sectiğim bölümün içine yazmasını istiyorum bunu nasıl halledebilirim

[Murat DİCLE]

Şu kodları dene lütfen:

Kod: Tümünü seç

Procedure RegYaz(Baslik:String; Deger : dWord);
var
   Reg : TRegistry;
begin
   Reg := TRegistry.Create;
   case Combo1.ItemIndex of
     0: Reg.RootKey := HKEY_CURRENT_USER;
     1: Reg.RootKey := HKEY_CURRENT_MACHINE;
   end;
   Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', False); // ilgili dal açılır...
   If NOT Reg.ValueExists(Baslik) then Reg.CreateKey(Baslik); // Baslık Yoksa Oluşturulur...
   Reg.WriteBinaryData(Baslik, Deger, SizeOf(Deger)); // Baslik için değer yazılır...
   Reg.CloseKey; // Key kapatılır...
   Reg.Free;
end;

Yalnız windows Admin modunda değilse local machine ayarlarına erişemezsin. Bunuda göz önünde bulundur.

[conari]

benim kullandığım fonksiyonlar.

Kod: Tümünü seç

function register_yaz(yol :string;tip: string;deger:variant):boolean;
var
  reg1 : TRegistry;
begin
  reg1 := Tregistry.create;
  Reg1.RootKey:=HKEY_LOCAL_MACHINE;
  Reg1.OpenKey(yol,True);
  reg1.WriteString(tip,deger);
  result := true;
end;

Kod: Tümünü seç

function register_oku(yol:string;deger:string) :string;
var
  reg1 : TRegistry;
begin
  reg1 := Tregistry.create;
  Reg1.RootKey:=HKEY_LOCAL_MACHINE;
  Reg1.OpenKey(yol,True);
  result := reg1.readString(deger);
end;