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?