Вопрос следующий
с помощью функции опрашиваю переменную в реестре
Код:
function valueexist(Hkey: hkey; path, key: string): bool;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := Hkey;
Reg.OpenKey(Path, False);
valueexist := Reg.ValueExists(key);
except
valueexist := false;
end;
Reg.Free;
end;
С такими параметрами работает возвращет тру если есть и фолс если не
Код:
ValueExist(HKEY_CURRENT_USER,'Environment','PortNumber')
А с такими всегда фолс (во всей ветке HKEY_LOCAL_MACHINE)
Код:
ValueExist(HKEY_LOCAL_MACHINE,'SYSTEMControlSet001ServicesSharedAccessParametersFirewallPolicyStandardProfile','EnableFirewall')
Подскажите что делать
(делаю интерфес управления встроенным фаерволом если есть идеи как сделать не через реестр буду рад совету )