Ich möchte per Code die Windows-Firewall ein- und ausschalten lassen.
Dazu habe ich mir einen Code geschrieben, der in XP problemlos funktioniert und in Vista immerhin aktivieren kann und auch den aktuellen Status anzeigen kann.
Der Kern des Codes ist dieser hier:
Delphi-Quellcode:
FwMgr := CreateOLEObject('HNetCfg.FwMgr');
curFWprofile := FwMgr.LocalPolicy.CurrentProfile;
curFWprofile.FirewallEnabled := false;
Das Problem ist nun, dass das Deaktivieren in Vista scheitert. Ich erhalte dann folgende Meldung von Windows (auf Deutsch und Englisch für alle Fälle):
http://img377.imageshack.us/img377/817/vistafwad7.png
(Delphi liefert die
Exception "nicht implementiert".)
Was kann man tun, damit diese Meldung nicht kommt? Lässt sich diese Überprüfung irgendwie ausschalten, damit die Firewall normal deaktiviert wird?
Das Programm verfügt über Admin-Rechte. Das ist also kein Problem.
Am liebsten wäre mir natürlich, wenn man das codeseitig ändern könnte. Falls das nicht möglich ist, wäre es auch denkbar, das von Hand einzustellen. Aber zu beidem habe ich keine Idee... Aber vielleicht jemand von Euch?