Zitat:
Warum ist die eine Prozedur mit CoInitialize und das andere ohne?
Das würde mich auch interessieren.
Andere Frage/Problem: Weil bei Server 2012 standardmäßig die Benachrichtigung ausgeschaltet ist, wollte ich sie mal damit einschalten:
Delphi-Quellcode:
procedure SetNotificationDisabled(Value: boolean);
var
FirewallMsg: OleVariant;
FirewallApp: OleVariant;
CurrentProfile: OleVariant;
begin
CoInitialize(nil);
try
FirewallMsg := CreateOLEObject('HNetCfg.FwMgr');
CurrentProfile := FirewallMsg.LocalPolicy.CurrentProfile;
FirewallApp := CreateOLEObject('HNetCfg.FwAuthorizedApplication');
FirewallApp.NotificationsDisabled := Value;
CurrentProfile.AuthorizedApplications.Add(FirewallApp);
finally
CoUninitialize;
end;
end;
Es folgt eine
Exception: Die Methode 'NotificationsDisabled' wird vom Automatisierungsobjekt nicht unterstützt.
Hab mir die Beispiele unter
activexperts.com angesehen. Es müsste das doch eigentlich gehen. Hat jemand dazu eine Idee?
ne!
Aber CoUninitialize findet sich nicht in ComObj da wo CoInitialize und CoInitialzeEx zu finden sind...
seltsam.
Außerdem ne frage mal so neben bei. Wenn ein Setup euch Firewall Ausnahmen einrichtet, erwartet ihr das die Deinstallation diese zurücknimmt?