VPF::Чтение значения реестра... - Форум программистов

Death

Дата 2.7.2002, 13:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всем привет!
Помогите прочитать значение "play" ключа реестра:

Код

[HKEY_LOCAL_MACHINE\Software\CLASSES\AudioCD\shell]
@="play"

Вот так не получается:

Код

procedure TForm1.ReadData;
var
 R:Tregistry;
begin
 r:=TRegistry.Create;
  R.RootKey:=HKEY_LOCAL_MACHINE;
   if R.OpenKey('Software\Classes\AudioCD\Shell\', False) then
    if R.ValueExists('play') then
     Checkbox10.Checked:=true
    else 
     Checkbox10.Checked:=false;
   R.CloseKey;
  r.Free;
end;

:withstupid

Death

Дата 3.7.2002, 16:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Как я понял

if R.ValueExists('play') then

проверяет есть ли такой параметр в реестре.

А мне нужна проверка значения.

:withstupid

Vit

Дата 3.7.2002, 16:25 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

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

Репутация: 48
Всего: 207

Дык прочитай значение и сравни что тебе вернулось - то что ты по Default определил или другое - если другое - значит есть этот параметер...

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Дата 3.7.2002, 16:57 (ссылка)

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

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Я так понял что тибе надо проверить наличие раздела раз ты такой путь написал.

if R.KeyExists('play') then

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