Mit TWebBrowser/TEmbeddedWB Edge von Windows 10 kapseln?

[greenmile]

Im aktuellen TEmbeddedWB ist ein Bug drin der dafür sorgt, dass unter Windows 10 nur eine leere Seite erscheint. Die Eigenschaft von "BrowserEmulation" ist irgendein Schrott, wenn man sie nichts definiert. Das sorgt dafür, dass irgendein Wert in

Code:

\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION

geschrieben wird. Windows 10 mag das überhaupt nicht, wenn was ungültiges (<0 oder > 11) da drin steht. Also am besten den Inhalt der Funktion "TEmbeddedWB.setbrowserversion" ausremen (ein Exit gleich am Anfang der Funktion), den Wert aus der Registry löschen (Name der EXE in dem Registry-Pfad) und schon läuft es.

[uligerhardt]

Zitat von greenmile:

ausremen

Du hast mal VB programmiert, oder?

[greenmile]

Ausremen ist nur kürzer als "auskommentieren".

[uligerhardt]

Zitat von greenmile:

Ausremen ist nur kürzer als "auskommentieren".

Stimmt.

[ScharfeMietze]

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