Prüfen ob TabbedBrowsing/PhishingFilter des IE7 aktiv ist

[chris]

Ob das "TabbedBrowsing" / der "PhishingFilter" des Internet Explorer 7 aktiv ist kann man mit folgender Funktion überprüfen:

Delphi-Quellcode:

uses {..}, Registry;

function GetPFTBEnabled(Key: string): 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\' + Key, false) then
          Result := (ValueExists('Enabled')) and (Boolean(ReadInteger('Enabled')))
      finally
        CloseKey;
        Free
      end
  except
    Result := false
  end
end;

Aufruf:

Delphi-Quellcode:

//z.B.:
ShowMessage(BoolToStr(GetPFTBEnabled('TabbedBrowsing'), True))
//oder
ShowMessage(BoolToStr(GetPFTBEnabled('PhishingFilter'), True))