IE6 SetUrlPolicyPermissions "Filedownload" auf allow setzten

[richard_boderich]

@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