RegINIFile

[Superlotles]

Здравствуйте !!!
Подскажите, почему в Str не записывается значение из реестра, MenuHeight в реестре равно -285, а у меня показывает 'ничего', Str:=''

procedure TForm1.Button1Click(Sender: TObject);
var
reg:TregIniFile;
Str:String;
begin
reg := TRegIniFile.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\Desktop\WindowMetrics', True);
Str:=reg.ReadString('WindowMetrics','MenuHeight',' ');
ShowMessage(Str);
end;

end.

[mihali4]

Подправьте строку:

reg.OpenKey('Control Panel\Desktop', True);