Реестр

← →
mmmaloy © (2003-11-24 14:13) [0]

Reg := TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
if Reg.OpenKey("\Software", false) then
begin
if Reg.KeyExists("Value13")=true then
if Reg.ReadInteger("Value13")=13 then
begin
SpeedButton4.Enabled :=true;
end
else else
begin
MainFrm.Caption:=MainFrm.Caption+"-
Незарегестрированная версия";
end;
end;

finally
Reg.CloseKey;
Reg.Free;
inherited;
end;

Почему данный код вызывает ошибку когда нет ключа Value13, ведь как я понимаю if Reg.KeyExists("Value13")=true then должен проверят на наличие ключа. А код если есть ключ нормально работает, а если нет ключа исключение дает

← →
Digitman © (2003-11-24 14:21) [1]

ты разницу между Key и Value понимаешь ?

вообщето думал что понимаю, и думал разницы нет
Оказалось замена на Reg.ValueExists("Value13")=true помогла!
Спасибо

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