Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

Работа с реестром Windows   Найти похожие ветки 

 
Эдуард   (2003-06-10 05:05) [0]

Доброго времени суток!
Кусок программы выглядит так:
Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CURRENT_USER;
try
{сначала пытаюсь узнать, а есть ли данный путь в реестре}
if not Reg.OpenKey("Software\PROG1\Ver 1.0\",false)
then
begin
{если нет, то я его создаю. именно так я сделал за тем, чтобы
в последствии, в программе, знать был указанный путь или нет}
WasPathExists:=false;
Reg.CloseKey; Reg.OpenKey("Software\RSTL-Soft\Ver 1.0\",true);
end;
if Reg.KeyExists("Value1")
then Value1:=Reg.ReadInteger("Value1")
else Reg.WriteInteger("Value1",Value1);
{если ключа "Value1" по вышеуказанному пути нет, то он создается и в его записывается значение по умолчанию. если ключ есть, то с него читается значение}
...

В разделе "Software\RSTL-Soft\Ver 1.0\" , кроме переменных (ключей)есть еще подразделы (это так, для справки).

Проблема в том, что независимо от того, существует ключ "Value1" или нет, функция Reg.KeyExists("Value1") всегда возвращает False.

В чем здесь может быть дело?

/Программу делаю на Delphi 6, ОС - WinXP/


 
Spawn ©   (2003-06-10 06:36) [1]

KeyExists проверяет наличие ключа в реестре, а тебе, видимо нужно проверять значение ключа через ValueExists. То есть твой код неработоспособный - в начале ты проверяешь наличие ключа, а потом, в зависимости от результата, записываешь значение ключа в уже открытый тобою ключ ("Software\RSTL-Soft\Ver 1.0\"). Если же тебе необходимо записывать значения в тот ключь, то сначала создай его.



Страницы: 1 вся ветка

Текущий архив: 2003.08.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-81928
alextov
2003-08-06 10:16
2003.08.25
Альтернативные средства разработки графики


1-81652
SO
2003-08-11 17:18
2003.08.25
OnClick для динамически создаваемых кнопак


8-81841
EK
2003-04-26 22:06
2003.08.25
mpeg4


14-81916
SPIRIT
2003-08-07 13:03
2003.08.25
А ДАВАЙТЕ *.EXE ФАЙЛ УМЕНЬШИМ


14-81906
Jaxtor
2003-08-07 17:02
2003.08.25
Ctrl-C,Ctrl-V