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))