[Beavimo]

Добрый день!
Может у когото есть пример для добавления правила в Брандмауэр Windows, потому как все ссылки на примеры битые? Нужно заблокировать устанавливаемой программе доступ в интернет, относительно выбраного пути при установке. Пока что пользую такой пример блокирует вход через хост, ну тогда на сайт не зайти.

CODE

Код:

function InitializeSetup(): Boolean;
 begin
  if FileExists(ExpandConstant('{sys}\drivers\etc\hosts')) then
   begin
    Result:= True;
     end
    else begin
   SaveStringToFile(ExpandConstant('{sys}\drivers\etc\hosts'),'', False) 
  Result:= True;
 end
end;

procedure CurStepChanged(CurStep: TSetupStep);
 var
  HostFile: TStringList;
   begin
    HostFile := TStringList.Create;
     try
      with HostFile do
       if CurStep = ssPostInstall then
      begin
       LoadFromFile(ExpandConstant('{sys}\drivers\etc\hosts'));
      if IndexOf('127.0.0.1 www.test.com') = -1 then 
     Add('127.0.0.1 www.test.com');
    SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));
   end;
  finally
 HostFile.free;
end
end;