[Northern]

Le pregunté a la IA y me soltó esto:


Para agregar una IP a un ámbito de firewall en Delphi, puedes utilizar la biblioteca WinAPI para acceder a las funciones y estructuras de Windows necesarias. Aquí tienes un ejemplo de cómo hacerlo:

Código Delphi [-]
uses
  WinAPI.Windows, WinAPI.IpHlpApi, WinAPI.IpTypes;

procedure AddIPToFirewallScope(const ipAddress: string);
var
  fwPolicy2: INetFwPolicy2;
  fwRules: INetFwRules;
  fwRule: INetFwRule;
begin
  // Crear una instancia del objeto INetFwPolicy2
  fwPolicy2 := CreateComObject(CLASS_NetFwPolicy2) as INetFwPolicy2;
  
  // Obtener la colección de reglas de firewall
  fwRules := fwPolicy2.Rules;
  
  // Crear una nueva regla de firewall
  fwRule := CreateComObject(CLASS_NetFwRule) as INetFwRule;
  
  // Establecer las propiedades de la regla
  fwRule.Name := 'MiReglaDeFirewall'; // Nombre de la regla
  fwRule.Description := 'Permite acceso desde la IP especificada'; // Descripción de la regla
  fwRule.Action := NET_FW_ACTION_ALLOW; // Permitir tráfico
  fwRule.Direction := NET_FW_RULE_DIR_IN; // Tráfico entrante
  fwRule.Enabled := True; // Habilitar la regla
  
  // Establecer el ámbito de la regla para la IP especificada
  fwRule.RemoteAddresses := ipAddress;
  
  // Añadir la regla a la colección de reglas de firewall
  fwRules.Add(fwRule);
end;

Puedes llamar a esta función AddIPToFirewallScope pasando la dirección IP que deseas agregar como parámetro. Asegúrate de que tu aplicación tenga los permisos necesarios para acceder y modificar las reglas del firewall.