Einzelnen Beitrag anzeigen

ScharfeMietze

Registriert seit: 5. Mär 2014
165 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#20

AW: Mit TWebBrowser/TEmbeddedWB Edge von Windows 10 kapseln?

  Alt 19. Aug 2015, 12:00
Der Tipp war super,
allerdings habe ich es noch etwas anders erschlagen
http://fs2.directupload.net/images/150819/zvmy85fb.jpg
Ich überschreibe einfach den Versionswert
Delphi-Quellcode:
procedure TEmbeddedWB.setbrowserversion( version : integer );
const
  REG_KEY_EMULATOR = '\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION';
  var reg : tregistry;
begin
// Wert "version" am 19.08.2015 überschrieben für XE8 kompatibilität
// 11001 (0x2EDF) Internet Explorer 11. Webpages are displayed in IE11 Standards mode, regardless of the !DOCTYPE directive.
version:= 00011001;
  if not (csdesigning in componentstate) then begin // sonst steht da stumpf bds.exe
    reg := Tregistry.create(KEY_WRITE);
    reg.rootkey := HKEY_CURRENT_USER;
    try
      reg.OpenKey(REG_KEY_EMULATOR,true);
      reg.WriteInteger(TWD_GetAppname, version);
      reg.CloseKey;
    finally
      //
    end;
    freeandnil(reg);
  end;
end;
Ein großen superlieben Dank!!
SM
  Mit Zitat antworten Zitat