اضافه کردن برنامه به Firewall ویندوز

[The.Ghost]

کد:

Procedure ADDApplicationToFirewall(Name:string;Path:string);
var
  fwMgr,app:OleVariant;
  profile:OleVariant;
Const
  NET_FW_PROFILE_DOMAIN = 0;
  NET_FW_PROFILE_STANDARD = 1;
  NET_FW_IP_VERSION_ANY = 2;
  NET_FW_IP_PROTOCOL_UDP = 17;
  NET_FW_IP_PROTOCOL_TCP = 6;
  NET_FW_SCOPE_ALL = 0;
  NET_FW_SCOPE_LOCAL_SUBNET = 1;
begin
if FileExists(Trim(Path)) = True then
   begin
     Try
       fwMgr := CreateOLEObject('HNetCfg.FwMgr');
       profile := fwMgr.LocalPolicy.CurrentProfile;
       app := CreateOLEObject('HNetCfg.FwAuthorizedApplication');
       app.ProcessImageFileName := Path;
       app.Name := Name;
       app.Scope := NET_FW_SCOPE_ALL;
       app.IpVersion := NET_FW_IP_VERSION_ANY;
       app.Enabled :=true;
       profile.AuthorizedApplications.Add(app);
     Except
     End;
end;
end;