Главная страница
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-81911
vopros
2003-08-07 14:29
2003.08.25
Люди помогите c Indy.Надо файл-вложения сделать.


1-81773
-=GaLaN=-
2003-08-14 12:08
2003.08.25
Выравнивание в TEdit


1-81691
delphin111
2003-08-09 17:50
2003.08.25
bmp


3-81598
Relaxxx
2003-07-31 13:07
2003.08.25
Рисовать в ячейках DBGrid как на канвасе


7-81967
INCOGNITO
2003-06-10 11:09
2003.08.25
Программа для работы с USB портом