VPF::Узнать значение параметра по умолчанию у ключа реестра

Alexeis

Дата 11.2.2008, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


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;

Автор: Rrader Источник: Vingrad

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

MetalFan

Дата 12.3.2008, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

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

--------------------

There are always someone smarter than you...

Alix

Дата 13.3.2008, 09:56 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

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

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

Rrader

Дата 27.3.2008, 04:20 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

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

--------------------

Let's do this quickly!
Rest in peace, Vit!

MetalFan

Дата 27.3.2008, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

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

)

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

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

--------------------

There are always someone smarter than you...

Poseidon

Дата 28.3.2008, 17:35 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »