Добавить в список исключений брандмауэра

Question

Ниже приведен код для добавления моего приложения в список исключений брандмауэра Windows. Я хотел знать, будет ли это работать и для других брандмауэров, например: антивирусные брандмауэры и т. Д. Если нет, то, пожалуйста, предложите решение. Примечание. Мое приложение работает с правами администратора, но мои пользователи не могут понять настройки брандмауэра quickheal и т. Д. Я использую Delphi 2007 (Win32).

Я впервые пользуюсь этим форумом. Пожалуйста, извините + исправьте любые ошибки.

С уважением Аллан Фернандес

procedure AddApplicationToFirewall(EntryName:string;ApplicationPathAndExe:string);
var
  fwMgr,app:OleVariant;
  profile:OleVariant;
begin
  fwMgr := CreateOLEObject('HNetCfg.FwMgr');
  profile := fwMgr.LocalPolicy.CurrentProfile;
  app := CreateOLEObject('HNetCfg.FwAuthorizedApplication');
  app.ProcessImageFileName := ApplicationPathAndExe;
  app.Name := EntryName;
  app.Scope := NET_FW_SCOPE_ALL;
  app.IpVersion := NET_FW_IP_VERSION_ANY;
  app.Enabled :=true;
  profile.AuthorizedApplications.Add(app);
end;

Answer 1

@ Аллан, ваш код работает только для брандмауэра Windows или брандмауэров, которые используют список исключений брандмауэра Windows.

к сожалению, не существует стандартного способа добавления исключений в сторонние брандмауэры, поскольку большинство из них используют свои собственные методы для обработки исключений и правил доступа.