Firewall aktivieren/deaktivieren

[klose010]

Hier ein Code, mit dem man die Windows Firewall aktiviren bzw. deaktivieren kann:

Delphi-Quellcode:

uses shellapi;
// aktivieren
ShellExecute(0, 'open', 'cmd.exe', '/c netsh firewall set opmode enable', nil, SW_NORMAL);
// deaktivieren
ShellExecute(0, 'open', 'cmd.exe', '/c netsh firewall set opmode disable', nil, SW_NORMAL);

[Matze]

Anmerkungen:

1. Es sind Administratorrechte erforderlich.
2. Falls das für einen Installer o.ä. verwendet werden soll, kann mit "SW_HIDE" anstelle von "SW_NORMAL" das Konsolenfenster auch unterdrückt werden, sodass man es nicht sieht.

[SirThornberry]

Mir stellt sich die Fragen warum du den Befehl nicht direkt ausführst sondern die Kommandozeile startest und darin den Befehl ausführst?! Welchen Vorteil hat dies?

[Bernhard Geyer]

Zitat:

Zitat von Matze

1. Es sind Administratorrechte erforderlich.

Was ab Windows Vista 98% der User nicht haben. Es kommt also mindestens eine UAC-Meldung

Zitat:

Zitat von Matze

2. Falls das für einen Installer o.ä. verwendet werden soll, kann mit "SW_HIDE" anstelle von "SW_NORMAL" das Konsolenfenster auch unterdrückt werden, sodass man es nicht sieht.

Auf versteckte Konsolenfenster reagieren diverse Anti-Virenprogramme allergisch. Es könnte also sein das das Programm des öfteren einen False-Positive Alarm erlebt.

[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;

[Gehstock]

Da fehlt aber noch ne menge Code von den Jedi Komponenten

[Chris.R]

@Gehstock: Was meinst du?? :gruebel: Meine Lösung funktioniert auch ohne Jedi.

[RWarnecke]

Oder so : XP Firewall ausschalten