Tregistry Problem (Solved)

[codeman]

Hello , im trying to read a reg. entry , but i get an empty msgbox ... see below

Should it work ? (i tested on WinXP SP3 x32)

Code

Code: [Select]

reg := TRegIniFile.Create('');
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.ReadString('SOFTWARE\Microsoft\Windows NT\CurrentVersion','ProductName',str);
reg.free;
showmessage(str);     


[DirkS]

IIRC you need to do 'OpenKey' before reading values...

Gr.
Dirk.

[codeman]

I modified it but it does not seem to work again  ...  (i tried 'openkey function' too)
Also i get a compile error : wrong number of parameters for call to 'ReadString'   

Code: [Select]

reg := TRegIniFile.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyreadonly('SOFTWARE\Microsoft\Windows NT\CurrentVersion');
str:=reg.ReadString('ProductName');
reg.closekey;
reg.free;
showmessage(str);


[eny]

Just use TRegistry, that should worl:

Code: [Select]

var reg: TRegistry;
    str: string;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKeyreadonly('SOFTWARE\Microsoft\Windows NT\CurrentVersion');
  str := reg.ReadString('ProductName');
  reg.closekey;
  reg.free;
  showmessage(str);
end;
Or use the highly undesired code like below.
It seems to work but it shouldn't:

Code: [Select]

var reg: TRegIniFile;
    str: string;
begin
  reg := TRegIniFile.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKeyreadonly('SOFTWARE\Microsoft\Windows NT\');
  str := reg.ReadString('CurrentVersion', 'ProductName', '<unknown>');
  reg.closekey;
  reg.free;
  showmessage(str);
end; 

[codeman]

LOL .. its working   

Thanks