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