citanje iz registry-a

[ Bojann @ 06.04.2005. 16:52 ] @

Zelim da procitam podatke iz registry baze. Ja ukucam ovaj kod i on mi prijavi poruku koja je prazna:

Code:

var
Reg : TRegistry;
KeyGood : Boolean;
compan:string;

begin
Reg := TRegistry.Create;
try

Reg.OpenKey('My Computer\HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\photoshop\7.0\Registration', TRUE);
compan := Reg.ReadString('NAME');
showmessage(compan);

finally
Reg.Free;

end;

Gde je tu greska i zasto mi ne procita podatke iz registry-a?

[ Srki_82 @ 06.04.2005. 17:23 ] @

Probaj

Code:
var
  Reg : TRegistry;
  KeyGood : Boolean;
  compan:string;

begin
  Reg := TRegistry.Create(KEY_READ);
  try
    Registry.RootKey = HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Adobe\photoshop\7.0\Registration', False);
    compan := Reg.ReadString('NAME');
    showmessage(compan);
  finally
    Reg.Free;
end;

Pisem iz glave, ali bi trebalo da radi.