@marabu
Dieser Code funtioniert leider nicht. Es kommt keine Fehlermeldung! Er greift auf die Registry zu, setzt jedoch nicht den nötigen Key, sondern nur
3 nicht relevante Werte. Das Systernals Regmon Protokoll des Funktionsaufrufes habe ich mal angehängt.
Delphi-Quellcode:
var
policy: Byte;
zm: IInternetZoneManager;
begin
policy := URLPOLICY_ALLOW;
if CoInternetCreateZoneManager(nil, zm, 0) = S_OK then
zm.SetZoneActionPolicy(
URLZONE_INTERNET,
$00001803,
@policy,
SizeOf(policy),
URLZONEREG_HKCU
)
else
ShowMessage('better try next time');
end;
mfG Richard