Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Узнать значение параметра по умолчанию у ключа реестра

Автор: Alexeis 11.2.2008, 10:43

Код


Procedure TForm1.Button1Click(Sender: TObject);
Var
  R: TRegistry;
  S: String;
Begin
  R := TRegistry.Create;
  Try
    R.RootKey := HKEY_CURRENT_USER;
    R.OpenKey('Software', False);
    S := R.ReadString(PChar(NIL));
    If S <> '' Then
      ShowMessage(S)
    Else
    Begin
      ShowMessage('<Значение не присвоено>');
      R.WriteString(PChar(NIL), 'Dummy');
    End;
  Finally
    R.Free;
  End;
End;

Автор: http://vingrad.ru/@Rrader Источник: http://forum.vingrad.ru/index.php?show_type=forum&showtopic=195336

Автор: MetalFan 12.3.2008, 17:43

хм, у меня прекрасно срабатывало с пустой строкой вместо PChar(nil)

Автор: Alix 13.3.2008, 09:56

ну правильно, константные строки дельфи сама прекрасно преобразовывает к PChar при необходимости

Автор: Rrader 27.3.2008, 04:20

Не всегда срабатывает, проверено. Иначе бы так не писал. smile

Автор: MetalFan 27.3.2008, 09:41

Цитата(Rrader @ 27.3.2008, 04:20

)

Не всегда срабатывает, проверено. Иначе бы так не писал.

не очень весомое утверждение. вот еслиб написал, почему не срабатывает - другое дело
у меня проблем ни разу не возникало.

Автор: Poseidon 28.3.2008, 17:35

Чо за ерунда? Пустая строка прокатывала всю жизнь на семерке...