Ayuda ámbito dw firewall

[DarkSton]

tengo este error
[Error] Unit1.pas(47): Undeclared identifier: 'NET_FW_ACTION_ALLOW'
[Error] Unit1.pas(49): Undeclared identifier: 'NET_FW_RULE_DIR_IN'

[Neftali [Germán.Estévez]]

Empezado por DarkSton

tengo este error
[Error] Unit1.pas(47): Undeclared identifier: 'NET_FW_ACTION_ALLOW'
[Error] Unit1.pas(49): Undeclared identifier: 'NET_FW_RULE_DIR_IN'

Aquí define esas constantes de esta forma:

Código Delphi [-]
Const  
  NET_FW_IP_PROTOCOL_TCP = 6;  
  NET_FW_IP_PROTOCOL_UDP = 17;  
  NET_FW_ACTION_BLOCK = 0;  
  NET_FW_ACTION_ALLOW = 1;  
  NET_FW_RULE_DIR_IN = 1;

El resto de código es similar al que te han colocado antes.

[DarkSton]

ya lo probe , error el parametro no es correcto

Código Delphi [-]
// Agregar la regla al Firewall
    fwRules.Add(fwRule);

alli me lleva el error