![]() |
Prüfen ob TabbedBrowsing/PhishingFilter des IE7 aktiv ist
Ob das "TabbedBrowsing" / der "PhishingFilter" des Internet Explorer 7 aktiv ist kann man mit folgender Funktion überprüfen:
Delphi-Quellcode:
Aufruf:
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;
Delphi-Quellcode:
//z.B.:
ShowMessage(BoolToStr(GetPFTBEnabled('TabbedBrowsing'), True)) //oder ShowMessage(BoolToStr(GetPFTBEnabled('PhishingFilter'), True)) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz