Herausfinden von IE-Sicherheitszone

[marabu]

Hallo Bernhard,

probiere es so:

Delphi-Quellcode:

uses
  ComObj,
  UrlMon;

var
  sm: IInternetSecurityManager;
  dwZone: DWORD;

begin
  OleCheck(CoInternetCreateSecurityManager(nil, sm, 0));
  OleCheck(sm.MapUrlToZone('http://www.delphi-praxis.net', dwZone, 0));
  ShowMessage(IntToStr(dwZone));
end;

Freundliche Grüße