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?