Firewall aktivieren/deaktivieren

[Chris.R]

Geht auch so:

Delphi-Quellcode:

function SetFWEnabled(const AValue: Boolean);
var
  AFWMgr: OleVariant;
  AFWPolicy: OleVariant;
  AFWProfile: OleVariant;
begin
  AFWMgr := CreateOleObject('HNetCfg.FwMgr');
  AFWPolicy := FFWMgr.LocalPolicy;
  AFWProfile := FFWPolicy.CurrentProfile;
  AFWProfile.FirewallEnabled := AValue;
end;