Screeshot TWebbrowser

[Delphi.Narium]

Delphi-Quellcode:

procedure IERegFake(sProgName : String; dwVersion :DWord);
var
          reg : TRegistry;
begin
  // 11000 = Version 11.0
  // 10001 = Version 10.0
  //  8000 = Version  8.0 Build = 86001
  //  7000 = Version  7.0
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION',true);
  reg.WriteInteger(sProgName,dwVersion);
  reg.Free;
end;
// Aufruf z. B.:
IERegFake(ExtractFileName(Application.ExeName), 11000);