IE6 SetUrlPolicyPermissions "Filedownload" auf allow setzten

[richard_boderich]

Hallo zusammen!

Ich hab ein kleines Problem mit dem IE6. Ich surfe mit dem IE6 immer auf Sicherheitsstufe hoch. Nun muss ich aber bei bestimmten Seiten,
die Scriptsupport benötigen immer auf mittlere Sicherheit zuruckschalten. Das klappt so auch ganz gut.

Delphi-Quellcode:

zonemanager.CopyTemplatePoliciesToZone(URLTEMPLATE_MEDIUM,3,0);

Wenn ich jedoch zurückschalte mittels...

Delphi-Quellcode:

zonemanager.CopyTemplatePoliciesToZone(URLTEMPLATE_HIGH ,3,0);

... ist die Permission "Filedownload" ja deaktiviert. Somit sind keinerleih Downloads möglich. Meine Frage also wie kann ich diese Permission auf
Allow setzten?

Ich hatte vorher auch schon versucht mittels GetZoneAttributes/Setzoneattributes die Ursprungseinstellungen wiederherzustellen was aber nur teilweise
Funktioniert hat. (Es wurden nicht alle Permissions richtig gesetzt, leider weis ich nicht wieso)
Ich hoffe der marabu kann mir vielleicht helfen.

mfG Richard

[richard_boderich]

** PUSH **

[richard_boderich]

Werde ich es also doch wieder über direkte Registrieeingriffe machen müssen? *seufz*

mfG Richard

[richard_boderich]

@marabu

Es geht um die Permission

1803 URLACTION_SHELL_FILE_DOWNLOAD

Ich kann sie dirkt in der Registry setzten, aber das ist dirty. Es muss doch auch so gehen.

mfG Richard

[toms]

Hallo, schon mal mit ZoneManager.SetZoneActionPolicy(..) probiert?

[richard_boderich]

@toms

Ja probiert, aber die Funktion hat bei mir nicht funktioniert, weil ich mit den Pointerdeklarationen nichts anfangen
konnte. Ich kam mit Aufrufkonventionen und Parametern nur sehr mühsam zurecht. Die Bezeichnungen in der MSDN und in
der UrlMon Unit stimmen teilweise auch nicht überein. Mal heist es Permissions, dann Policys und dann mal wieder
Actionpolicys oder oder komplett was anderes. Der marabu wollt sich das Problem mal anschauen. Mal abwarten was er dazu sagt.

mfG Richard

[marabu]

Moin zusammen,

der Hinweis von Tom scheint mir passend - das Thema wurde hier schonmal gestreift: klick

Freundliche Grüße

[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