Webbrowser Sicherheitshinweis ausschalten?

[gandime]

so jetzt hab ich eine ganz tolle Function und weiss nicht was ich genau damit anfangen soll^^

Delphi-Quellcode:

    function SetZoneActionPolicy(dwZone, dwAction: DWORD; pPolicy: Pointer;
      cbPolicy: DWORD; urlZoneReg: TUrlZoneReg): HResult; stdcall;

was is wofür gut?

[marabu]

Die Parameterversorgung müsste nach meiner Einschätzung etwa so aussehen:

Delphi-Quellcode:

var
  policy: Byte;
  zm: IInternetZoneManager;
begin
  policy := URLPOLICY_ALLOW;
  if CoInternetCreateZoneManager(nil, zm, 0) = S_OK then
    zm.SetZoneActionPolicy(
      URLZONE_INTRANET,
      URLACTION_HTML_MIXED_CONTENT,
      @policy,
      SizeOf(policy),
      URLZONEREG_HKCU
    )
  else
    ShowMessage('better try next time');
end;

Hast du schon nach Anwendungsbeispielen bei bsalsa geforscht?