Registry'den dword değer okuma

[RC1]

Merhaba arkadaşlar;

Registy'den dword değerlerini okumayı bir türlü beceremedim forumda arama yapıp daha önceki sorunlan sorulara ve cevaplara baktım ama birşey çıkaramadım

Hkey_Local_Machine'De Software key'inden bir yazılımın sürüm numrasını okumaya çalışıyorum key tipi REG_DWORD ve özelliklere girdiğimizde value data : 10b4 ve base Hexadecimal yazıyor.

Bu registry değerini delphi'den nasıl ele geçirebiliriz ?

Saygılar...

[conari]

Kod: Tümünü seç

function TForm1.register_oku(yol:string;deger:string) :dword;
var
  reg1 : TRegistry;
begin
  reg1 := Tregistry.create;
  Reg1.RootKey:=HKEY_LOCAL_MACHINE;
  Reg1.OpenKey(yol,True);
  result := reg1.ReadInteger(deger);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(inttostr(register_oku('Software\burayabak','bunundegerinioku')));
end;

bir dene istersen..