Prüfen ob der Popup-Blocker des IE 6/7 aktiv ist

[chris]

Ob der Popup-Blocker des Internet Explorers 6 oder 7 aktiv ist kann man mit folgender Funktion überprüfen:

Delphi-Quellcode:

uses {..}, Registry;

function GetPopupMgrState: Boolean;
var Reg: TRegistry;
begin
  Result := false;
  try
    Reg := TRegistry.Create(KEY_READ);
    with Reg do
    try
      RootKey := HKEY_CURRENT_USER;
      if OpenKey('Software\Microsoft\Internet Explorer\New Windows', false) then
        Result := ValueExists('PopupMgr') and (uppercase(ReadString('PopupMgr')) = 'YES')
    finally
      CloseKey;
      Free
    end
  except
    Result := false
  end
end;

Aufruf:

Delphi-Quellcode:

//z.B.:
ShowMessage(BoolToStr(GetPopupMgrState, True))