1 unit NetFwTypeLib_TLB; 2 3 // ************************************************************************ // 4 // WARNUNG 5 // ------- 6 // Die in dieser Datei deklarierten Typen wurden aus Daten einer Typbibliothek 7 // generiert. Wenn diese Typbibliothek explizit oder indirekt (�ber eine 8 // andere Typbibliothek) reimportiert wird oder wenn die Anweisung 9 // 'Aktualisieren' im Typbibliotheks-Editor w�hrend des Bearbeitens der 10 // Typbibliothek aktiviert ist, wird der Inhalt dieser Datei neu generiert und 11 // alle manuell vorgenommenen �nderungen gehen verloren. 12 // ************************************************************************ // 13 14 // PASTLWTR : $Revision: 1.130.1.0.1.0.1.6 $ 15 // Datei generiert am 20.05.2007 16:34:09 aus der unten beschriebenen Typbibliothek. 16 17 // ************************************************************************ // 18 // Type Lib: FirewallAPI.dll (1) 19 // LIBID: {58FBCF7C-E7A9-467C-80B3-FC65E8FCCA08} 20 // LCID: 0 21 // Helpfile: 22 // DepndLst: 23 // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb) 24 // (2) v4.0 StdVCL, (C:\WINDOWS\system32\stdvcl40.dll) 25 // Fehler 26 // Hinweis: Element 'Type' von 'INetFwService' ge�ndert in 'Type_' 27 // Hinweis: Parameter 'Type' im INetFwService.Type ge�ndert in 'Type_' 28 // Hinweis: Element 'Type' von 'INetFwProfile' ge�ndert in 'Type_' 29 // Hinweis: Parameter 'Type' im INetFwProfile.Type ge�ndert in 'Type_' 30 // Hinweis: Parameter 'Type' im INetFwMgr.IsIcmpTypeAllowed ge�ndert in 'Type_' 31 // Hinweis: Element 'Type' von 'INetFwService' ge�ndert in 'Type_' 32 // Hinweis: Element 'Type' von 'INetFwProfile' ge�ndert in 'Type_' 33 // ************************************************************************ // 34 // *************************************************************************// 35 // HINWEIS: 36 // Von $IFDEF_LIVE_SERVER_AT_DESIGN_TIME �berwachte Eintr�ge, werden von 37 // Eigenschaften verwendet, die Objekte zur�ckgeben, die explizit mit einen Funktionsaufruf 38 // vor dem Zugriff �ber die Eigenschaft erzeugt werden m�ssen. Diese Eintr�ge wurden deaktiviert, 39 // um deren unbeabsichtigte Benutzung im Objektinspektor zu verhindern. Sie k�nnen sie 40 // aktivieren, indem Sie LIVE_SERVER_AT_DESIGN_TIME definieren oder sie selektiv 41 // aus den $IFDEF-Bl�cken entfernen. Solche Eintr�ge m�ssen jedoch programmseitig 42 // mit einer Methode der geeigneten CoClass vor der Verwendung 43 // erzeugt werden. 44 {$TYPEDADDRESS OFF} // Unit mu� ohne Typ�berpr�fung f�r Zeiger compiliert werden. 45 {$WARN SYMBOL_PLATFORM OFF} 46 {$WRITEABLECONST ON} 47 {$VARPROPSETTER ON} 48 interface 49 50 uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants; 51 52 53 // *********************************************************************// 54 // In dieser Typbibliothek deklarierte GUIDS . Es werden folgende 55 // Pr�fixe verwendet: 56 // Typbibliotheken : LIBID_xxxx 57 // CoClasses : CLASS_xxxx 58 // DISPInterfaces : DIID_xxxx 59 // Nicht-DISP-Schnittstellen: IID_xxxx 60 // *********************************************************************// 61 const 62 // Haupt- und Nebenversionen der Typbibliothek 63 NetFwTypeLibMajorVersion = 1; 64 NetFwTypeLibMinorVersion = 0; 65 66 LIBID_NetFwTypeLib: TGUID = '{58FBCF7C-E7A9-467C-80B3-FC65E8FCCA08}'; 67 68 IID_INetFwRemoteAdminSettings: TGUID = '{D4BECDDF-6F73-4A83-B832-9C66874CD20E}'; 69 IID_INetFwIcmpSettings: TGUID = '{A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD}'; 70 IID_INetFwOpenPort: TGUID = '{E0483BA0-47FF-4D9C-A6D6-7741D0B195F7}'; 71 IID_INetFwOpenPorts: TGUID = '{C0E9D7FA-E07E-430A-B19A-090CE82D92E2}'; 72 IID_INetFwService: TGUID = '{79FD57C8-908E-4A36-9888-D5B3F0A444CF}'; 73 IID_INetFwServices: TGUID = '{79649BB4-903E-421B-94C9-79848E79F6EE}'; 74 IID_INetFwAuthorizedApplication: TGUID = '{B5E64FFA-C2C5-444E-A301-FB5E00018050}'; 75 IID_INetFwAuthorizedApplications: TGUID = '{644EFD52-CCF9-486C-97A2-39F352570B30}'; 76 IID_INetFwServiceRestriction: TGUID = '{8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B}'; 77 IID_INetFwRules: TGUID = '{9C4C6277-5027-441E-AFAE-CA1F542DA009}'; 78 IID_INetFwRule: TGUID = '{AF230D27-BABA-4E42-ACED-F524F22CFCE2}'; 79 IID_INetFwProfile: TGUID = '{174A0DDA-E9F9-449D-993B-21AB667CA456}'; 80 IID_INetFwPolicy: TGUID = '{D46D2478-9AC9-4008-9DC7-5563CE5536CC}'; 81 IID_INetFwPolicy2: TGUID = '{98325047-C671-4174-8D81-DEFCD3F03186}'; 82 IID_INetFwMgr: TGUID = '{F7898AF5-CAC4-4632-A2EC-DA06E5111AF2}'; 83 84 // *********************************************************************// 85 // Deklaration von in der Typbibliothek definierten Enumerationen 86 // *********************************************************************// 87 // Konstanten f�r enum NET_FW_IP_VERSION_ 88 type 89 NET_FW_IP_VERSION_ = TOleEnum; 90 const 91 NET_FW_IP_VERSION_V4 = $00000000; 92 NET_FW_IP_VERSION_V6 = $00000001; 93 NET_FW_IP_VERSION_ANY = $00000002; 94 NET_FW_IP_VERSION_MAX = $00000003; 95 96 // Konstanten f�r enum NET_FW_SCOPE_ 97 type 98 NET_FW_SCOPE_ = TOleEnum; 99 const 100 NET_FW_SCOPE_ALL = $00000000; 101 NET_FW_SCOPE_LOCAL_SUBNET = $00000001; 102 NET_FW_SCOPE_CUSTOM = $00000002; 103 NET_FW_SCOPE_MAX = $00000003; 104 105 // Konstanten f�r enum NET_FW_IP_PROTOCOL_ 106 type 107 NET_FW_IP_PROTOCOL_ = TOleEnum; 108 const 109 NET_FW_IP_PROTOCOL_TCP = $00000006; 110 NET_FW_IP_PROTOCOL_UDP = $00000011; 111 NET_FW_IP_PROTOCOL_ANY = $00000100; 112 113 // Konstanten f�r enum NET_FW_SERVICE_TYPE_ 114 type 115 NET_FW_SERVICE_TYPE_ = TOleEnum; 116 const 117 NET_FW_SERVICE_FILE_AND_PRINT = $00000000; 118 NET_FW_SERVICE_UPNP = $00000001; 119 NET_FW_SERVICE_REMOTE_DESKTOP = $00000002; 120 NET_FW_SERVICE_NONE = $00000003; 121 NET_FW_SERVICE_TYPE_MAX = $00000004; 122 123 // Konstanten f�r enum NET_FW_RULE_DIRECTION_ 124 type 125 NET_FW_RULE_DIRECTION_ = TOleEnum; 126 const 127 NET_FW_RULE_DIR_IN = $00000001; 128 NET_FW_RULE_DIR_OUT = $00000002; 129 NET_FW_RULE_DIR_MAX = $00000003; 130 131 // Konstanten f�r enum NET_FW_ACTION_ 132 type 133 NET_FW_ACTION_ = TOleEnum; 134 const 135 NET_FW_ACTION_BLOCK = $00000000; 136 NET_FW_ACTION_ALLOW = $00000001; 137 NET_FW_ACTION_MAX = $00000002; 138 139 // Konstanten f�r enum NET_FW_PROFILE_TYPE_ 140 type 141 NET_FW_PROFILE_TYPE_ = TOleEnum; 142 const 143 NET_FW_PROFILE_DOMAIN = $00000000; 144 NET_FW_PROFILE_STANDARD = $00000001; 145 NET_FW_PROFILE_CURRENT = $00000002; 146 NET_FW_PROFILE_TYPE_MAX = $00000003; 147 148 // Konstanten f�r enum NET_FW_PROFILE_TYPE2_ 149 type 150 NET_FW_PROFILE_TYPE2_ = TOleEnum; 151 const 152 NET_FW_PROFILE2_DOMAIN = $00000001; 153 NET_FW_PROFILE2_PRIVATE = $00000002; 154 NET_FW_PROFILE2_PUBLIC = $00000004; 155 NET_FW_PROFILE2_ALL = $7FFFFFFF; 156 157 // Konstanten f�r enum NET_FW_MODIFY_STATE_ 158 type 159 NET_FW_MODIFY_STATE_ = TOleEnum; 160 const 161 NET_FW_MODIFY_STATE_OK = $00000000; 162 NET_FW_MODIFY_STATE_GP_OVERRIDE = $00000001; 163 NET_FW_MODIFY_STATE_INBOUND_BLOCKED = $00000002; 164 165 type 166 167 // *********************************************************************// 168 // Forward-Deklaration von in der Typbibliothek definierten Typen 169 // *********************************************************************// 170 INetFwRemoteAdminSettings = interface; 171 INetFwRemoteAdminSettingsDisp = dispinterface; 172 INetFwIcmpSettings = interface; 173 INetFwIcmpSettingsDisp = dispinterface; 174 INetFwOpenPort = interface; 175 INetFwOpenPortDisp = dispinterface; 176 INetFwOpenPorts = interface; 177 INetFwOpenPortsDisp = dispinterface; 178 INetFwService = interface; 179 INetFwServiceDisp = dispinterface; 180 INetFwServices = interface; 181 INetFwServicesDisp = dispinterface; 182 INetFwAuthorizedApplication = interface; 183 INetFwAuthorizedApplicationDisp = dispinterface; 184 INetFwAuthorizedApplications = interface; 185 INetFwAuthorizedApplicationsDisp = dispinterface; 186 INetFwServiceRestriction = interface; 187 INetFwServiceRestrictionDisp = dispinterface; 188 INetFwRules = interface; 189 INetFwRulesDisp = dispinterface; 190 INetFwRule = interface; 191 INetFwRuleDisp = dispinterface; 192 INetFwProfile = interface; 193 INetFwProfileDisp = dispinterface; 194 INetFwPolicy = interface; 195 INetFwPolicyDisp = dispinterface; 196 INetFwPolicy2 = interface; 197 INetFwPolicy2Disp = dispinterface; 198 INetFwMgr = interface; 199 INetFwMgrDisp = dispinterface; 200 201 // *********************************************************************// 202 // Schnittstelle: INetFwRemoteAdminSettings 203 // Flags: (4416) Dual OleAutomation Dispatchable 204 // GUID: {D4BECDDF-6F73-4A83-B832-9C66874CD20E} 205 // *********************************************************************// 206 INetFwRemoteAdminSettings = interface(IDispatch) 207 ['{D4BECDDF-6F73-4A83-B832-9C66874CD20E}'] Get_IpVersionnull208 function Get_IpVersion: NET_FW_IP_VERSION_; safecall; 209 procedure Set_IpVersion(IpVersion: NET_FW_IP_VERSION_); safecall; Get_Scopenull210 function Get_Scope: NET_FW_SCOPE_; safecall; 211 procedure Set_Scope(Scope: NET_FW_SCOPE_); safecall; Get_RemoteAddressesnull212 function Get_RemoteAddresses: WideString; safecall; 213 procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall; Get_Enablednull214 function Get_Enabled: WordBool; safecall; 215 procedure Set_Enabled(Enabled: WordBool); safecall; 216 property IpVersion: NET_FW_IP_VERSION_ read Get_IpVersion write Set_IpVersion; 217 property Scope: NET_FW_SCOPE_ read Get_Scope write Set_Scope; 218 property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses; 219 property Enabled: WordBool read Get_Enabled write Set_Enabled; 220 end; 221 222 // *********************************************************************// 223 // DispIntf: INetFwRemoteAdminSettingsDisp 224 // Flags: (4416) Dual OleAutomation Dispatchable 225 // GUID: {D4BECDDF-6F73-4A83-B832-9C66874CD20E} 226 // *********************************************************************// 227 INetFwRemoteAdminSettingsDisp = dispinterface 228 ['{D4BECDDF-6F73-4A83-B832-9C66874CD20E}'] 229 property IpVersion: NET_FW_IP_VERSION_ dispid 1; 230 property Scope: NET_FW_SCOPE_ dispid 2; 231 property RemoteAddresses: WideString dispid 3; 232 property Enabled: WordBool dispid 4; 233 end; 234 235 // *********************************************************************// 236 // Schnittstelle: INetFwIcmpSettings 237 // Flags: (4416) Dual OleAutomation Dispatchable 238 // GUID: {A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD} 239 // *********************************************************************// 240 INetFwIcmpSettings = interface(IDispatch) 241 ['{A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD}'] Get_AllowOutboundDestinationUnreachablenull242 function Get_AllowOutboundDestinationUnreachable: WordBool; safecall; 243 procedure Set_AllowOutboundDestinationUnreachable(allow: WordBool); safecall; Get_AllowRedirectnull244 function Get_AllowRedirect: WordBool; safecall; 245 procedure Set_AllowRedirect(allow: WordBool); safecall; Get_AllowInboundEchoRequestnull246 function Get_AllowInboundEchoRequest: WordBool; safecall; 247 procedure Set_AllowInboundEchoRequest(allow: WordBool); safecall; Get_AllowOutboundTimeExceedednull248 function Get_AllowOutboundTimeExceeded: WordBool; safecall; 249 procedure Set_AllowOutboundTimeExceeded(allow: WordBool); safecall; Get_AllowOutboundParameterProblemnull250 function Get_AllowOutboundParameterProblem: WordBool; safecall; 251 procedure Set_AllowOutboundParameterProblem(allow: WordBool); safecall; Get_AllowOutboundSourceQuenchnull252 function Get_AllowOutboundSourceQuench: WordBool; safecall; 253 procedure Set_AllowOutboundSourceQuench(allow: WordBool); safecall; Get_AllowInboundRouterRequestnull254 function Get_AllowInboundRouterRequest: WordBool; safecall; 255 procedure Set_AllowInboundRouterRequest(allow: WordBool); safecall; Get_AllowInboundTimestampRequestnull256 function Get_AllowInboundTimestampRequest: WordBool; safecall; 257 procedure Set_AllowInboundTimestampRequest(allow: WordBool); safecall; Get_AllowInboundMaskRequestnull258 function Get_AllowInboundMaskRequest: WordBool; safecall; 259 procedure Set_AllowInboundMaskRequest(allow: WordBool); safecall; Get_AllowOutboundPacketTooBignull260 function Get_AllowOutboundPacketTooBig: WordBool; safecall; 261 procedure Set_AllowOutboundPacketTooBig(allow: WordBool); safecall; 262 property AllowOutboundDestinationUnreachable: WordBool read Get_AllowOutboundDestinationUnreachable write Set_AllowOutboundDestinationUnreachable; 263 property AllowRedirect: WordBool read Get_AllowRedirect write Set_AllowRedirect; 264 property AllowInboundEchoRequest: WordBool read Get_AllowInboundEchoRequest write Set_AllowInboundEchoRequest; 265 property AllowOutboundTimeExceeded: WordBool read Get_AllowOutboundTimeExceeded write Set_AllowOutboundTimeExceeded; 266 property AllowOutboundParameterProblem: WordBool read Get_AllowOutboundParameterProblem write Set_AllowOutboundParameterProblem; 267 property AllowOutboundSourceQuench: WordBool read Get_AllowOutboundSourceQuench write Set_AllowOutboundSourceQuench; 268 property AllowInboundRouterRequest: WordBool read Get_AllowInboundRouterRequest write Set_AllowInboundRouterRequest; 269 property AllowInboundTimestampRequest: WordBool read Get_AllowInboundTimestampRequest write Set_AllowInboundTimestampRequest; 270 property AllowInboundMaskRequest: WordBool read Get_AllowInboundMaskRequest write Set_AllowInboundMaskRequest; 271 property AllowOutboundPacketTooBig: WordBool read Get_AllowOutboundPacketTooBig write Set_AllowOutboundPacketTooBig; 272 end; 273 274 // *********************************************************************// 275 // DispIntf: INetFwIcmpSettingsDisp 276 // Flags: (4416) Dual OleAutomation Dispatchable 277 // GUID: {A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD} 278 // *********************************************************************// 279 INetFwIcmpSettingsDisp = dispinterface 280 ['{A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD}'] 281 property AllowOutboundDestinationUnreachable: WordBool dispid 1; 282 property AllowRedirect: WordBool dispid 2; 283 property AllowInboundEchoRequest: WordBool dispid 3; 284 property AllowOutboundTimeExceeded: WordBool dispid 4; 285 property AllowOutboundParameterProblem: WordBool dispid 5; 286 property AllowOutboundSourceQuench: WordBool dispid 6; 287 property AllowInboundRouterRequest: WordBool dispid 7; 288 property AllowInboundTimestampRequest: WordBool dispid 8; 289 property AllowInboundMaskRequest: WordBool dispid 9; 290 property AllowOutboundPacketTooBig: WordBool dispid 10; 291 end; 292 293 // *********************************************************************// 294 // Schnittstelle: INetFwOpenPort 295 // Flags: (4416) Dual OleAutomation Dispatchable 296 // GUID: {E0483BA0-47FF-4D9C-A6D6-7741D0B195F7} 297 // *********************************************************************// 298 INetFwOpenPort = interface(IDispatch) 299 ['{E0483BA0-47FF-4D9C-A6D6-7741D0B195F7}'] Get_Namenull300 function Get_Name: WideString; safecall; 301 procedure Set_Name(const Name: WideString); safecall; Get_IpVersionnull302 function Get_IpVersion: NET_FW_IP_VERSION_; safecall; 303 procedure Set_IpVersion(IpVersion: NET_FW_IP_VERSION_); safecall; Get_Protocolnull304 function Get_Protocol: NET_FW_IP_PROTOCOL_; safecall; 305 procedure Set_Protocol(ipProtocol: NET_FW_IP_PROTOCOL_); safecall; Get_Portnull306 function Get_Port: Integer; safecall; 307 procedure Set_Port(portNumber: Integer); safecall; Get_Scopenull308 function Get_Scope: NET_FW_SCOPE_; safecall; 309 procedure Set_Scope(Scope: NET_FW_SCOPE_); safecall; Get_RemoteAddressesnull310 function Get_RemoteAddresses: WideString; safecall; 311 procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall; Get_Enablednull312 function Get_Enabled: WordBool; safecall; 313 procedure Set_Enabled(Enabled: WordBool); safecall; Get_BuiltInnull314 function Get_BuiltIn: WordBool; safecall; 315 property Name: WideString read Get_Name write Set_Name; 316 property IpVersion: NET_FW_IP_VERSION_ read Get_IpVersion write Set_IpVersion; 317 property Protocol: NET_FW_IP_PROTOCOL_ read Get_Protocol write Set_Protocol; 318 property Port: Integer read Get_Port write Set_Port; 319 property Scope: NET_FW_SCOPE_ read Get_Scope write Set_Scope; 320 property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses; 321 property Enabled: WordBool read Get_Enabled write Set_Enabled; 322 property BuiltIn: WordBool read Get_BuiltIn; 323 end; 324 325 // *********************************************************************// 326 // DispIntf: INetFwOpenPortDisp 327 // Flags: (4416) Dual OleAutomation Dispatchable 328 // GUID: {E0483BA0-47FF-4D9C-A6D6-7741D0B195F7} 329 // *********************************************************************// 330 INetFwOpenPortDisp = dispinterface 331 ['{E0483BA0-47FF-4D9C-A6D6-7741D0B195F7}'] 332 property Name: WideString dispid 1; 333 property IpVersion: NET_FW_IP_VERSION_ dispid 2; 334 property Protocol: NET_FW_IP_PROTOCOL_ dispid 3; 335 property Port: Integer dispid 4; 336 property Scope: NET_FW_SCOPE_ dispid 5; 337 property RemoteAddresses: WideString dispid 6; 338 property Enabled: WordBool dispid 7; 339 property BuiltIn: WordBool readonly dispid 8; 340 end; 341 342 // *********************************************************************// 343 // Schnittstelle: INetFwOpenPorts 344 // Flags: (4416) Dual OleAutomation Dispatchable 345 // GUID: {C0E9D7FA-E07E-430A-B19A-090CE82D92E2} 346 // *********************************************************************// 347 INetFwOpenPorts = interface(IDispatch) 348 ['{C0E9D7FA-E07E-430A-B19A-090CE82D92E2}'] Get_Countnull349 function Get_Count: Integer; safecall; 350 procedure Add(const Port: INetFwOpenPort); safecall; 351 procedure Remove(portNumber: Integer; ipProtocol: NET_FW_IP_PROTOCOL_); safecall; Itemnull352 function Item(portNumber: Integer; ipProtocol: NET_FW_IP_PROTOCOL_): INetFwOpenPort; safecall; Get__NewEnumnull353 function Get__NewEnum: IUnknown; safecall; 354 property Count: Integer read Get_Count; 355 property _NewEnum: IUnknown read Get__NewEnum; 356 end; 357 358 // *********************************************************************// 359 // DispIntf: INetFwOpenPortsDisp 360 // Flags: (4416) Dual OleAutomation Dispatchable 361 // GUID: {C0E9D7FA-E07E-430A-B19A-090CE82D92E2} 362 // *********************************************************************// 363 INetFwOpenPortsDisp = dispinterface 364 ['{C0E9D7FA-E07E-430A-B19A-090CE82D92E2}'] 365 property Count: Integer readonly dispid 1; 366 procedure Add(const Port: INetFwOpenPort); dispid 2; 367 procedure Remove(portNumber: Integer; ipProtocol: NET_FW_IP_PROTOCOL_); dispid 3; Itemnull368 function Item(portNumber: Integer; ipProtocol: NET_FW_IP_PROTOCOL_): INetFwOpenPort; dispid 4; 369 property _NewEnum: IUnknown readonly dispid -4; 370 end; 371 372 // *********************************************************************// 373 // Schnittstelle: INetFwService 374 // Flags: (4416) Dual OleAutomation Dispatchable 375 // GUID: {79FD57C8-908E-4A36-9888-D5B3F0A444CF} 376 // *********************************************************************// 377 INetFwService = interface(IDispatch) 378 ['{79FD57C8-908E-4A36-9888-D5B3F0A444CF}'] Get_Namenull379 function Get_Name: WideString; safecall; Get_Type_null380 function Get_Type_: NET_FW_SERVICE_TYPE_; safecall; Get_Customizednull381 function Get_Customized: WordBool; safecall; Get_IpVersionnull382 function Get_IpVersion: NET_FW_IP_VERSION_; safecall; 383 procedure Set_IpVersion(IpVersion: NET_FW_IP_VERSION_); safecall; Get_Scopenull384 function Get_Scope: NET_FW_SCOPE_; safecall; 385 procedure Set_Scope(Scope: NET_FW_SCOPE_); safecall; Get_RemoteAddressesnull386 function Get_RemoteAddresses: WideString; safecall; 387 procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall; Get_Enablednull388 function Get_Enabled: WordBool; safecall; 389 procedure Set_Enabled(Enabled: WordBool); safecall; Get_GloballyOpenPortsnull390 function Get_GloballyOpenPorts: INetFwOpenPorts; safecall; 391 property Name: WideString read Get_Name; 392 property Type_: NET_FW_SERVICE_TYPE_ read Get_Type_; 393 property Customized: WordBool read Get_Customized; 394 property IpVersion: NET_FW_IP_VERSION_ read Get_IpVersion write Set_IpVersion; 395 property Scope: NET_FW_SCOPE_ read Get_Scope write Set_Scope; 396 property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses; 397 property Enabled: WordBool read Get_Enabled write Set_Enabled; 398 property GloballyOpenPorts: INetFwOpenPorts read Get_GloballyOpenPorts; 399 end; 400 401 // *********************************************************************// 402 // DispIntf: INetFwServiceDisp 403 // Flags: (4416) Dual OleAutomation Dispatchable 404 // GUID: {79FD57C8-908E-4A36-9888-D5B3F0A444CF} 405 // *********************************************************************// 406 INetFwServiceDisp = dispinterface 407 ['{79FD57C8-908E-4A36-9888-D5B3F0A444CF}'] 408 property Name: WideString readonly dispid 1; 409 property Type_: NET_FW_SERVICE_TYPE_ readonly dispid 2; 410 property Customized: WordBool readonly dispid 3; 411 property IpVersion: NET_FW_IP_VERSION_ dispid 4; 412 property Scope: NET_FW_SCOPE_ dispid 5; 413 property RemoteAddresses: WideString dispid 6; 414 property Enabled: WordBool dispid 7; 415 property GloballyOpenPorts: INetFwOpenPorts readonly dispid 8; 416 end; 417 418 // *********************************************************************// 419 // Schnittstelle: INetFwServices 420 // Flags: (4416) Dual OleAutomation Dispatchable 421 // GUID: {79649BB4-903E-421B-94C9-79848E79F6EE} 422 // *********************************************************************// 423 INetFwServices = interface(IDispatch) 424 ['{79649BB4-903E-421B-94C9-79848E79F6EE}'] Get_Countnull425 function Get_Count: Integer; safecall; Itemnull426 function Item(svcType: NET_FW_SERVICE_TYPE_): INetFwService; safecall; Get__NewEnumnull427 function Get__NewEnum: IUnknown; safecall; 428 property Count: Integer read Get_Count; 429 property _NewEnum: IUnknown read Get__NewEnum; 430 end; 431 432 // *********************************************************************// 433 // DispIntf: INetFwServicesDisp 434 // Flags: (4416) Dual OleAutomation Dispatchable 435 // GUID: {79649BB4-903E-421B-94C9-79848E79F6EE} 436 // *********************************************************************// 437 INetFwServicesDisp = dispinterface 438 ['{79649BB4-903E-421B-94C9-79848E79F6EE}'] 439 property Count: Integer readonly dispid 1; Itemnull440 function Item(svcType: NET_FW_SERVICE_TYPE_): INetFwService; dispid 2; 441 property _NewEnum: IUnknown readonly dispid -4; 442 end; 443 444 // *********************************************************************// 445 // Schnittstelle: INetFwAuthorizedApplication 446 // Flags: (4416) Dual OleAutomation Dispatchable 447 // GUID: {B5E64FFA-C2C5-444E-A301-FB5E00018050} 448 // *********************************************************************// 449 INetFwAuthorizedApplication = interface(IDispatch) 450 ['{B5E64FFA-C2C5-444E-A301-FB5E00018050}'] Get_Namenull451 function Get_Name: WideString; safecall; 452 procedure Set_Name(const Name: WideString); safecall; Get_ProcessImageFileNamenull453 function Get_ProcessImageFileName: WideString; safecall; 454 procedure Set_ProcessImageFileName(const imageFileName: WideString); safecall; Get_IpVersionnull455 function Get_IpVersion: NET_FW_IP_VERSION_; safecall; 456 procedure Set_IpVersion(IpVersion: NET_FW_IP_VERSION_); safecall; Get_Scopenull457 function Get_Scope: NET_FW_SCOPE_; safecall; 458 procedure Set_Scope(Scope: NET_FW_SCOPE_); safecall; Get_RemoteAddressesnull459 function Get_RemoteAddresses: WideString; safecall; 460 procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall; Get_Enablednull461 function Get_Enabled: WordBool; safecall; 462 procedure Set_Enabled(Enabled: WordBool); safecall; 463 property Name: WideString read Get_Name write Set_Name; 464 property ProcessImageFileName: WideString read Get_ProcessImageFileName write Set_ProcessImageFileName; 465 property IpVersion: NET_FW_IP_VERSION_ read Get_IpVersion write Set_IpVersion; 466 property Scope: NET_FW_SCOPE_ read Get_Scope write Set_Scope; 467 property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses; 468 property Enabled: WordBool read Get_Enabled write Set_Enabled; 469 end; 470 471 // *********************************************************************// 472 // DispIntf: INetFwAuthorizedApplicationDisp 473 // Flags: (4416) Dual OleAutomation Dispatchable 474 // GUID: {B5E64FFA-C2C5-444E-A301-FB5E00018050} 475 // *********************************************************************// 476 INetFwAuthorizedApplicationDisp = dispinterface 477 ['{B5E64FFA-C2C5-444E-A301-FB5E00018050}'] 478 property Name: WideString dispid 1; 479 property ProcessImageFileName: WideString dispid 2; 480 property IpVersion: NET_FW_IP_VERSION_ dispid 3; 481 property Scope: NET_FW_SCOPE_ dispid 4; 482 property RemoteAddresses: WideString dispid 5; 483 property Enabled: WordBool dispid 6; 484 end; 485 486 // *********************************************************************// 487 // Schnittstelle: INetFwAuthorizedApplications 488 // Flags: (4416) Dual OleAutomation Dispatchable 489 // GUID: {644EFD52-CCF9-486C-97A2-39F352570B30} 490 // *********************************************************************// 491 INetFwAuthorizedApplications = interface(IDispatch) 492 ['{644EFD52-CCF9-486C-97A2-39F352570B30}'] Get_Countnull493 function Get_Count: Integer; safecall; 494 procedure Add(const app: INetFwAuthorizedApplication); safecall; 495 procedure Remove(const imageFileName: WideString); safecall; Itemnull496 function Item(const imageFileName: WideString): INetFwAuthorizedApplication; safecall; Get__NewEnumnull497 function Get__NewEnum: IUnknown; safecall; 498 property Count: Integer read Get_Count; 499 property _NewEnum: IUnknown read Get__NewEnum; 500 end; 501 502 // *********************************************************************// 503 // DispIntf: INetFwAuthorizedApplicationsDisp 504 // Flags: (4416) Dual OleAutomation Dispatchable 505 // GUID: {644EFD52-CCF9-486C-97A2-39F352570B30} 506 // *********************************************************************// 507 INetFwAuthorizedApplicationsDisp = dispinterface 508 ['{644EFD52-CCF9-486C-97A2-39F352570B30}'] 509 property Count: Integer readonly dispid 1; 510 procedure Add(const app: INetFwAuthorizedApplication); dispid 2; 511 procedure Remove(const imageFileName: WideString); dispid 3; Itemnull512 function Item(const imageFileName: WideString): INetFwAuthorizedApplication; dispid 4; 513 property _NewEnum: IUnknown readonly dispid -4; 514 end; 515 516 // *********************************************************************// 517 // Schnittstelle: INetFwServiceRestriction 518 // Flags: (4416) Dual OleAutomation Dispatchable 519 // GUID: {8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B} 520 // *********************************************************************// 521 INetFwServiceRestriction = interface(IDispatch) 522 ['{8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B}'] 523 procedure RestrictService(const serviceName: WideString; const appName: WideString; 524 RestrictService: WordBool; serviceSidRestricted: WordBool); safecall; ServiceRestrictednull525 function ServiceRestricted(const serviceName: WideString; const appName: WideString): WordBool; safecall; Get_Rulesnull526 function Get_Rules: INetFwRules; safecall; 527 property Rules: INetFwRules read Get_Rules; 528 end; 529 530 // *********************************************************************// 531 // DispIntf: INetFwServiceRestrictionDisp 532 // Flags: (4416) Dual OleAutomation Dispatchable 533 // GUID: {8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B} 534 // *********************************************************************// 535 INetFwServiceRestrictionDisp = dispinterface 536 ['{8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B}'] 537 procedure RestrictService(const serviceName: WideString; const appName: WideString; 538 RestrictService: WordBool; serviceSidRestricted: WordBool); dispid 1; ServiceRestrictednull539 function ServiceRestricted(const serviceName: WideString; const appName: WideString): WordBool; dispid 2; 540 property Rules: INetFwRules readonly dispid 3; 541 end; 542 543 // *********************************************************************// 544 // Schnittstelle: INetFwRules 545 // Flags: (4416) Dual OleAutomation Dispatchable 546 // GUID: {9C4C6277-5027-441E-AFAE-CA1F542DA009} 547 // *********************************************************************// 548 INetFwRules = interface(IDispatch) 549 ['{9C4C6277-5027-441E-AFAE-CA1F542DA009}'] Get_Countnull550 function Get_Count: Integer; safecall; 551 procedure Add(const rule: INetFwRule); safecall; 552 procedure Remove(const Name: WideString); safecall; Itemnull553 function Item(const Name: WideString): INetFwRule; safecall; Get__NewEnumnull554 function Get__NewEnum: IUnknown; safecall; 555 property Count: Integer read Get_Count; 556 property _NewEnum: IUnknown read Get__NewEnum; 557 end; 558 559 // *********************************************************************// 560 // DispIntf: INetFwRulesDisp 561 // Flags: (4416) Dual OleAutomation Dispatchable 562 // GUID: {9C4C6277-5027-441E-AFAE-CA1F542DA009} 563 // *********************************************************************// 564 INetFwRulesDisp = dispinterface 565 ['{9C4C6277-5027-441E-AFAE-CA1F542DA009}'] 566 property Count: Integer readonly dispid 1; 567 procedure Add(const rule: INetFwRule); dispid 2; 568 procedure Remove(const Name: WideString); dispid 3; Itemnull569 function Item(const Name: WideString): INetFwRule; dispid 4; 570 property _NewEnum: IUnknown readonly dispid -4; 571 end; 572 573 // *********************************************************************// 574 // Schnittstelle: INetFwRule 575 // Flags: (4416) Dual OleAutomation Dispatchable 576 // GUID: {AF230D27-BABA-4E42-ACED-F524F22CFCE2} 577 // *********************************************************************// 578 INetFwRule = interface(IDispatch) 579 ['{AF230D27-BABA-4E42-ACED-F524F22CFCE2}'] Get_Namenull580 function Get_Name: WideString; safecall; 581 procedure Set_Name(const Name: WideString); safecall; Get_Descriptionnull582 function Get_Description: WideString; safecall; 583 procedure Set_Description(const desc: WideString); safecall; Get_ApplicationNamenull584 function Get_ApplicationName: WideString; safecall; 585 procedure Set_ApplicationName(const imageFileName: WideString); safecall; Get_serviceNamenull586 function Get_serviceName: WideString; safecall; 587 procedure Set_serviceName(const serviceName: WideString); safecall; Get_Protocolnull588 function Get_Protocol: Integer; safecall; 589 procedure Set_Protocol(Protocol: Integer); safecall; Get_LocalPortsnull590 function Get_LocalPorts: WideString; safecall; 591 procedure Set_LocalPorts(const portNumbers: WideString); safecall; Get_RemotePortsnull592 function Get_RemotePorts: WideString; safecall; 593 procedure Set_RemotePorts(const portNumbers: WideString); safecall; Get_LocalAddressesnull594 function Get_LocalAddresses: WideString; safecall; 595 procedure Set_LocalAddresses(const localAddrs: WideString); safecall; Get_RemoteAddressesnull596 function Get_RemoteAddresses: WideString; safecall; 597 procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall; Get_IcmpTypesAndCodesnull598 function Get_IcmpTypesAndCodes: WideString; safecall; 599 procedure Set_IcmpTypesAndCodes(const IcmpTypesAndCodes: WideString); safecall; Get_Directionnull600 function Get_Direction: NET_FW_RULE_DIRECTION_; safecall; 601 procedure Set_Direction(dir: NET_FW_RULE_DIRECTION_); safecall; Get_Interfacesnull602 function Get_Interfaces: OleVariant; safecall; 603 procedure Set_Interfaces(Interfaces: OleVariant); safecall; Get_InterfaceTypesnull604 function Get_InterfaceTypes: WideString; safecall; 605 procedure Set_InterfaceTypes(const InterfaceTypes: WideString); safecall; Get_Enablednull606 function Get_Enabled: WordBool; safecall; 607 procedure Set_Enabled(Enabled: WordBool); safecall; Get_Groupingnull608 function Get_Grouping: WideString; safecall; 609 procedure Set_Grouping(const context: WideString); safecall; Get_Profilesnull610 function Get_Profiles: Integer; safecall; 611 procedure Set_Profiles(profileTypesBitmask: Integer); safecall; Get_EdgeTraversalnull612 function Get_EdgeTraversal: WordBool; safecall; 613 procedure Set_EdgeTraversal(Enabled: WordBool); safecall; Get_Actionnull614 function Get_Action: NET_FW_ACTION_; safecall; 615 procedure Set_Action(Action: NET_FW_ACTION_); safecall; 616 property Name: WideString read Get_Name write Set_Name; 617 property Description: WideString read Get_Description write Set_Description; 618 property ApplicationName: WideString read Get_ApplicationName write Set_ApplicationName; 619 property serviceName: WideString read Get_serviceName write Set_serviceName; 620 property Protocol: Integer read Get_Protocol write Set_Protocol; 621 property LocalPorts: WideString read Get_LocalPorts write Set_LocalPorts; 622 property RemotePorts: WideString read Get_RemotePorts write Set_RemotePorts; 623 property LocalAddresses: WideString read Get_LocalAddresses write Set_LocalAddresses; 624 property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses; 625 property IcmpTypesAndCodes: WideString read Get_IcmpTypesAndCodes write Set_IcmpTypesAndCodes; 626 property Direction: NET_FW_RULE_DIRECTION_ read Get_Direction write Set_Direction; 627 property Interfaces: OleVariant read Get_Interfaces write Set_Interfaces; 628 property InterfaceTypes: WideString read Get_InterfaceTypes write Set_InterfaceTypes; 629 property Enabled: WordBool read Get_Enabled write Set_Enabled; 630 property Grouping: WideString read Get_Grouping write Set_Grouping; 631 property Profiles: Integer read Get_Profiles write Set_Profiles; 632 property EdgeTraversal: WordBool read Get_EdgeTraversal write Set_EdgeTraversal; 633 property Action: NET_FW_ACTION_ read Get_Action write Set_Action; 634 end; 635 636 // *********************************************************************// 637 // DispIntf: INetFwRuleDisp 638 // Flags: (4416) Dual OleAutomation Dispatchable 639 // GUID: {AF230D27-BABA-4E42-ACED-F524F22CFCE2} 640 // *********************************************************************// 641 INetFwRuleDisp = dispinterface 642 ['{AF230D27-BABA-4E42-ACED-F524F22CFCE2}'] 643 property Name: WideString dispid 1; 644 property Description: WideString dispid 2; 645 property ApplicationName: WideString dispid 3; 646 property serviceName: WideString dispid 4; 647 property Protocol: Integer dispid 5; 648 property LocalPorts: WideString dispid 6; 649 property RemotePorts: WideString dispid 7; 650 property LocalAddresses: WideString dispid 8; 651 property RemoteAddresses: WideString dispid 9; 652 property IcmpTypesAndCodes: WideString dispid 10; 653 property Direction: NET_FW_RULE_DIRECTION_ dispid 11; 654 property Interfaces: OleVariant dispid 12; 655 property InterfaceTypes: WideString dispid 13; 656 property Enabled: WordBool dispid 14; 657 property Grouping: WideString dispid 15; 658 property Profiles: Integer dispid 16; 659 property EdgeTraversal: WordBool dispid 17; 660 property Action: NET_FW_ACTION_ dispid 18; 661 end; 662 663 // *********************************************************************// 664 // Schnittstelle: INetFwProfile 665 // Flags: (4416) Dual OleAutomation Dispatchable 666 // GUID: {174A0DDA-E9F9-449D-993B-21AB667CA456} 667 // *********************************************************************// 668 INetFwProfile = interface(IDispatch) 669 ['{174A0DDA-E9F9-449D-993B-21AB667CA456}'] Get_Type_null670 function Get_Type_: NET_FW_PROFILE_TYPE_; safecall; Get_FirewallEnablednull671 function Get_FirewallEnabled: WordBool; safecall; 672 procedure Set_FirewallEnabled(Enabled: WordBool); safecall; Get_ExceptionsNotAllowednull673 function Get_ExceptionsNotAllowed: WordBool; safecall; 674 procedure Set_ExceptionsNotAllowed(notAllowed: WordBool); safecall; Get_NotificationsDisablednull675 function Get_NotificationsDisabled: WordBool; safecall; 676 procedure Set_NotificationsDisabled(disabled: WordBool); safecall; Get_UnicastResponsesToMulticastBroadcastDisablednull677 function Get_UnicastResponsesToMulticastBroadcastDisabled: WordBool; safecall; 678 procedure Set_UnicastResponsesToMulticastBroadcastDisabled(disabled: WordBool); safecall; Get_RemoteAdminSettingsnull679 function Get_RemoteAdminSettings: INetFwRemoteAdminSettings; safecall; Get_IcmpSettingsnull680 function Get_IcmpSettings: INetFwIcmpSettings; safecall; Get_GloballyOpenPortsnull681 function Get_GloballyOpenPorts: INetFwOpenPorts; safecall; Get_Servicesnull682 function Get_Services: INetFwServices; safecall; Get_AuthorizedApplicationsnull683 function Get_AuthorizedApplications: INetFwAuthorizedApplications; safecall; 684 property Type_: NET_FW_PROFILE_TYPE_ read Get_Type_; 685 property FirewallEnabled: WordBool read Get_FirewallEnabled write Set_FirewallEnabled; 686 property ExceptionsNotAllowed: WordBool read Get_ExceptionsNotAllowed write Set_ExceptionsNotAllowed; 687 property NotificationsDisabled: WordBool read Get_NotificationsDisabled write Set_NotificationsDisabled; 688 property UnicastResponsesToMulticastBroadcastDisabled: WordBool read Get_UnicastResponsesToMulticastBroadcastDisabled write Set_UnicastResponsesToMulticastBroadcastDisabled; 689 property RemoteAdminSettings: INetFwRemoteAdminSettings read Get_RemoteAdminSettings; 690 property IcmpSettings: INetFwIcmpSettings read Get_IcmpSettings; 691 property GloballyOpenPorts: INetFwOpenPorts read Get_GloballyOpenPorts; 692 property Services: INetFwServices read Get_Services; 693 property AuthorizedApplications: INetFwAuthorizedApplications read Get_AuthorizedApplications; 694 end; 695 696 // *********************************************************************// 697 // DispIntf: INetFwProfileDisp 698 // Flags: (4416) Dual OleAutomation Dispatchable 699 // GUID: {174A0DDA-E9F9-449D-993B-21AB667CA456} 700 // *********************************************************************// 701 INetFwProfileDisp = dispinterface 702 ['{174A0DDA-E9F9-449D-993B-21AB667CA456}'] 703 property Type_: NET_FW_PROFILE_TYPE_ readonly dispid 1; 704 property FirewallEnabled: WordBool dispid 2; 705 property ExceptionsNotAllowed: WordBool dispid 3; 706 property NotificationsDisabled: WordBool dispid 4; 707 property UnicastResponsesToMulticastBroadcastDisabled: WordBool dispid 5; 708 property RemoteAdminSettings: INetFwRemoteAdminSettings readonly dispid 6; 709 property IcmpSettings: INetFwIcmpSettings readonly dispid 7; 710 property GloballyOpenPorts: INetFwOpenPorts readonly dispid 8; 711 property Services: INetFwServices readonly dispid 9; 712 property AuthorizedApplications: INetFwAuthorizedApplications readonly dispid 10; 713 end; 714 715 // *********************************************************************// 716 // Schnittstelle: INetFwPolicy 717 // Flags: (4416) Dual OleAutomation Dispatchable 718 // GUID: {D46D2478-9AC9-4008-9DC7-5563CE5536CC} 719 // *********************************************************************// 720 INetFwPolicy = interface(IDispatch) 721 ['{D46D2478-9AC9-4008-9DC7-5563CE5536CC}'] Get_CurrentProfilenull722 function Get_CurrentProfile: INetFwProfile; safecall; GetProfileByTypenull723 function GetProfileByType(profileType: NET_FW_PROFILE_TYPE_): INetFwProfile; safecall; 724 property CurrentProfile: INetFwProfile read Get_CurrentProfile; 725 end; 726 727 // *********************************************************************// 728 // DispIntf: INetFwPolicyDisp 729 // Flags: (4416) Dual OleAutomation Dispatchable 730 // GUID: {D46D2478-9AC9-4008-9DC7-5563CE5536CC} 731 // *********************************************************************// 732 INetFwPolicyDisp = dispinterface 733 ['{D46D2478-9AC9-4008-9DC7-5563CE5536CC}'] 734 property CurrentProfile: INetFwProfile readonly dispid 1; GetProfileByTypenull735 function GetProfileByType(profileType: NET_FW_PROFILE_TYPE_): INetFwProfile; dispid 2; 736 end; 737 738 // *********************************************************************// 739 // Schnittstelle: INetFwPolicy2 740 // Flags: (4416) Dual OleAutomation Dispatchable 741 // GUID: {98325047-C671-4174-8D81-DEFCD3F03186} 742 // *********************************************************************// 743 INetFwPolicy2 = interface(IDispatch) 744 ['{98325047-C671-4174-8D81-DEFCD3F03186}'] Get_CurrentProfileTypesnull745 function Get_CurrentProfileTypes: Integer; safecall; Get_FirewallEnablednull746 function Get_FirewallEnabled(profileType: NET_FW_PROFILE_TYPE2_): WordBool; safecall; 747 procedure Set_FirewallEnabled(profileType: NET_FW_PROFILE_TYPE2_; Enabled: WordBool); safecall; Get_ExcludedInterfacesnull748 function Get_ExcludedInterfaces(profileType: NET_FW_PROFILE_TYPE2_): OleVariant; safecall; 749 procedure Set_ExcludedInterfaces(profileType: NET_FW_PROFILE_TYPE2_; Interfaces: OleVariant); safecall; Get_BlockAllInboundTrafficnull750 function Get_BlockAllInboundTraffic(profileType: NET_FW_PROFILE_TYPE2_): WordBool; safecall; 751 procedure Set_BlockAllInboundTraffic(profileType: NET_FW_PROFILE_TYPE2_; Block: WordBool); safecall; Get_NotificationsDisablednull752 function Get_NotificationsDisabled(profileType: NET_FW_PROFILE_TYPE2_): WordBool; safecall; 753 procedure Set_NotificationsDisabled(profileType: NET_FW_PROFILE_TYPE2_; disabled: WordBool); safecall; Get_UnicastResponsesToMulticastBroadcastDisablednull754 function Get_UnicastResponsesToMulticastBroadcastDisabled(profileType: NET_FW_PROFILE_TYPE2_): WordBool; safecall; 755 procedure Set_UnicastResponsesToMulticastBroadcastDisabled(profileType: NET_FW_PROFILE_TYPE2_; 756 disabled: WordBool); safecall; Get_Rulesnull757 function Get_Rules: INetFwRules; safecall; Get_ServiceRestrictionnull758 function Get_ServiceRestriction: INetFwServiceRestriction; safecall; 759 procedure EnableRuleGroup(profileTypesBitmask: Integer; const group: WideString; 760 enable: WordBool); safecall; IsRuleGroupEnablednull761 function IsRuleGroupEnabled(profileTypesBitmask: Integer; const group: WideString): WordBool; safecall; 762 procedure RestoreLocalFirewallDefaults; safecall; Get_DefaultInboundActionnull763 function Get_DefaultInboundAction(profileType: NET_FW_PROFILE_TYPE2_): NET_FW_ACTION_; safecall; 764 procedure Set_DefaultInboundAction(profileType: NET_FW_PROFILE_TYPE2_; Action: NET_FW_ACTION_); safecall; Get_DefaultOutboundActionnull765 function Get_DefaultOutboundAction(profileType: NET_FW_PROFILE_TYPE2_): NET_FW_ACTION_; safecall; 766 procedure Set_DefaultOutboundAction(profileType: NET_FW_PROFILE_TYPE2_; Action: NET_FW_ACTION_); safecall; Get_IsRuleGroupCurrentlyEnablednull767 function Get_IsRuleGroupCurrentlyEnabled(const group: WideString): WordBool; safecall; Get_LocalPolicyModifyStatenull768 function Get_LocalPolicyModifyState: NET_FW_MODIFY_STATE_; safecall; 769 property CurrentProfileTypes: Integer read Get_CurrentProfileTypes; 770 property FirewallEnabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool read Get_FirewallEnabled write Set_FirewallEnabled; 771 property ExcludedInterfaces[profileType: NET_FW_PROFILE_TYPE2_]: OleVariant read Get_ExcludedInterfaces write Set_ExcludedInterfaces; 772 property BlockAllInboundTraffic[profileType: NET_FW_PROFILE_TYPE2_]: WordBool read Get_BlockAllInboundTraffic write Set_BlockAllInboundTraffic; 773 property NotificationsDisabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool read Get_NotificationsDisabled write Set_NotificationsDisabled; 774 property UnicastResponsesToMulticastBroadcastDisabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool read Get_UnicastResponsesToMulticastBroadcastDisabled write Set_UnicastResponsesToMulticastBroadcastDisabled; 775 property Rules: INetFwRules read Get_Rules; 776 property ServiceRestriction: INetFwServiceRestriction read Get_ServiceRestriction; 777 property DefaultInboundAction[profileType: NET_FW_PROFILE_TYPE2_]: NET_FW_ACTION_ read Get_DefaultInboundAction write Set_DefaultInboundAction; 778 property DefaultOutboundAction[profileType: NET_FW_PROFILE_TYPE2_]: NET_FW_ACTION_ read Get_DefaultOutboundAction write Set_DefaultOutboundAction; 779 property IsRuleGroupCurrentlyEnabled[const group: WideString]: WordBool read Get_IsRuleGroupCurrentlyEnabled; 780 property LocalPolicyModifyState: NET_FW_MODIFY_STATE_ read Get_LocalPolicyModifyState; 781 end; 782 783 // *********************************************************************// 784 // DispIntf: INetFwPolicy2Disp 785 // Flags: (4416) Dual OleAutomation Dispatchable 786 // GUID: {98325047-C671-4174-8D81-DEFCD3F03186} 787 // *********************************************************************// 788 INetFwPolicy2Disp = dispinterface 789 ['{98325047-C671-4174-8D81-DEFCD3F03186}'] 790 property CurrentProfileTypes: Integer readonly dispid 1; 791 property FirewallEnabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool dispid 2; 792 property ExcludedInterfaces[profileType: NET_FW_PROFILE_TYPE2_]: OleVariant dispid 3; 793 property BlockAllInboundTraffic[profileType: NET_FW_PROFILE_TYPE2_]: WordBool dispid 4; 794 property NotificationsDisabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool dispid 5; 795 property UnicastResponsesToMulticastBroadcastDisabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool dispid 6; 796 property Rules: INetFwRules readonly dispid 7; 797 property ServiceRestriction: INetFwServiceRestriction readonly dispid 8; 798 procedure EnableRuleGroup(profileTypesBitmask: Integer; const group: WideString; 799 enable: WordBool); dispid 9; IsRuleGroupEnablednull800 function IsRuleGroupEnabled(profileTypesBitmask: Integer; const group: WideString): WordBool; dispid 10; 801 procedure RestoreLocalFirewallDefaults; dispid 11; 802 property DefaultInboundAction[profileType: NET_FW_PROFILE_TYPE2_]: NET_FW_ACTION_ dispid 12; 803 property DefaultOutboundAction[profileType: NET_FW_PROFILE_TYPE2_]: NET_FW_ACTION_ dispid 13; 804 property IsRuleGroupCurrentlyEnabled[const group: WideString]: WordBool readonly dispid 14; 805 property LocalPolicyModifyState: NET_FW_MODIFY_STATE_ readonly dispid 15; 806 end; 807 808 // *********************************************************************// 809 // Schnittstelle: INetFwMgr 810 // Flags: (4416) Dual OleAutomation Dispatchable 811 // GUID: {F7898AF5-CAC4-4632-A2EC-DA06E5111AF2} 812 // *********************************************************************// 813 INetFwMgr = interface(IDispatch) 814 ['{F7898AF5-CAC4-4632-A2EC-DA06E5111AF2}'] Get_LocalPolicynull815 function Get_LocalPolicy: INetFwPolicy; safecall; Get_CurrentProfileTypenull816 function Get_CurrentProfileType: NET_FW_PROFILE_TYPE_; safecall; 817 procedure RestoreDefaults; safecall; 818 procedure IsPortAllowed(const imageFileName: WideString; IpVersion: NET_FW_IP_VERSION_; 819 portNumber: Integer; const localAddress: WideString; 820 ipProtocol: NET_FW_IP_PROTOCOL_; out allowed: OleVariant; 821 out restricted: OleVariant); safecall; 822 procedure IsIcmpTypeAllowed(IpVersion: NET_FW_IP_VERSION_; const localAddress: WideString; 823 Type_: Byte; out allowed: OleVariant; out restricted: OleVariant); safecall; 824 property LocalPolicy: INetFwPolicy read Get_LocalPolicy; 825 property CurrentProfileType: NET_FW_PROFILE_TYPE_ read Get_CurrentProfileType; 826 end; 827 828 // *********************************************************************// 829 // DispIntf: INetFwMgrDisp 830 // Flags: (4416) Dual OleAutomation Dispatchable 831 // GUID: {F7898AF5-CAC4-4632-A2EC-DA06E5111AF2} 832 // *********************************************************************// 833 INetFwMgrDisp = dispinterface 834 ['{F7898AF5-CAC4-4632-A2EC-DA06E5111AF2}'] 835 property LocalPolicy: INetFwPolicy readonly dispid 1; 836 property CurrentProfileType: NET_FW_PROFILE_TYPE_ readonly dispid 2; 837 procedure RestoreDefaults; dispid 3; 838 procedure IsPortAllowed(const imageFileName: WideString; IpVersion: NET_FW_IP_VERSION_; 839 portNumber: Integer; const localAddress: WideString; 840 ipProtocol: NET_FW_IP_PROTOCOL_; out allowed: OleVariant; 841 out restricted: OleVariant); dispid 4; 842 procedure IsIcmpTypeAllowed(IpVersion: NET_FW_IP_VERSION_; const localAddress: WideString; 843 Type_: Byte; out allowed: OleVariant; out restricted: OleVariant); dispid 5; 844 end; 845 846 implementation 847 848 uses ComObj; 849 850 end. 851