Странно работает TRegIniFile

[ifrost]

Добрый день!

У меня такая проблема:
есть процедура

Код: Выделить всё

procedure TfrmMain.SaveParams;
var
  Ini: TRegIniFile;
begin
  Ini := TRegIniFile.Create('');
  try
    try
      with Ini do
      begin
        RootKey := HKEY_CURRENT_USER;
        OpenKey('Software\ifrost\' + ExtractFileName(Application.ExeName), True);
        WriteString('', 'Chars', Trim(edChars.Text));
        WriteString('', 'OneChar', edOneChar.Text);
      end;
    except
    end;
  finally
    Ini.Free;
  end;
end;

Первая строка WriteString сохраняет значение в HKEY_CURRENT_USER\Software\ifrost\Program.exe\ в параметре Chars, //как и предполагалось
а вторая - прямо в корне HKEY_CURRENT_USER в параметре OneChar.

Всё встаёт на свои места если написать так:

Код: Выделить всё

...
        RootKey := HKEY_CURRENT_USER;
        OpenKey('Software\ifrost\' + ExtractFileName(Application.ExeName), True);
        WriteString('', 'Chars', Trim(edChars.Text));
        OpenKey('Software\ifrost\' + ExtractFileName(Application.ExeName), True);
        WriteString('', 'OneChar', edOneChar.Text);
...

Но что-то мне подсказывает что такого не должно быть
Подскажите пожалуйста в чём проблема?

[Kon.pasc]

А нинадо там OpenKey. Он вызывается в TRegIniFile.Create();

Надо так:

Код: Выделить всё

Ini := TRegIniFile.Create('Software\ifrost\' + ExtractFileName(Application.ExeName));
  try
    try
      with Ini do
      begin
        WriteString('', 'Chars', Trim(edChars.Text));
        WriteString('', 'OneChar', edOneChar.Text);
      end;
    except
    end;
  finally
    Ini.Free;
  end;