Как читать из реестра?

← →
нов (2003-05-08 09:41) [0]

Мастера, помогите.
Такой вот код:
Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_LOCAL_MACHINE; if not Reg.OpenKey("Software\My",true) then begin Reg.WriteBool("TaskExit",true); TaskExit := true; Reg.CloseKey; end else begin TaskExit := Reg.ReadBool("TaskExit"); end; finally Reg.Free; end;
я хочу при отсутствии ключа My записать туда значение по умолчанию. Но почему-то прога все равно пытается упрямо прочитать... Где у меня ошибка?

← →
evvcom © (2003-05-08 09:45) [1]

Reg.OpenKey("Software\My",true) при отсутствии ключа создает его и возвращает True.

← →
WarLord © (2003-05-08 09:52) [2]

Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if not Reg.OpenKey("Software\My",true) then
begin
ShowMessage("Недостаточно прав на запись ключа в реестр!");
exit;
end
else ....
finally
Reg.Free;
end;

← →
нов (2003-05-08 09:59) [3]

> evvcom © (08.05.03 09:45)
> Reg.OpenKey("Software\My",true) при отсутствии ключа создает
> его и возвращает True.

то есть у мне надо убрать not в условии?
убираю, и прога упорно лезит писать в реестр значение, даже если есть такой ключ...

← →
нов (2003-05-08 10:10) [4]

Получилось!!! Сделал так...
if not Reg.OpenKey("Software\ETool",false) then
begin
Reg.OpenKey("Software\ETool",true);

← →
Lord Warlock © (2003-05-08 10:13) [5]

> нов

Обычно порядок работы такой:
1.В какой-то момент (обычно при начале работы программы) пытаемся считать значение ключа в переменную А, если его нет, то в эту переменную попадает "ошибочное" значение, которое ты указываешь.
2. Опять в какой-то момент (обычно при завершении работы программы или при записи настроек) записываем значение переменной А в реестр.

При работе программы используется значение в переменной А.
Вообще, желательно минимизировать частоту обращения программы к реестру.

> нов (08.05.03 09:59)
> то есть у мне надо убрать not в условии?

Нет.
Можно делать так:
Reg.OpenKey("Software\My",true); //открываем ключ, если его не существует, то создаём if ValueExist("TaskExit") then //если значение существует TaskExit := Reg.ReadBool("TaskExit") //то берём его else begin //иначе Reg.WriteBool("TaskExit",true); //создаём его и записываем туда значение по умолчанию TaskExit := true; //не забываем про эту переменную end;

Как читать из реестра? Найти похожие ветки