TWebbrowser - Umschalten zwischen IE7- und IE8-Modus

[fkerber]

toms stellt hier eine Prozedur vor, die es ermöglicht, für sein Programm einzustellen, ob verwendete TWebbrowser-Komponenten im IE7- oder IE8-Modus laufen sollen.

Delphi-Quellcode:

uses
Registry;

type
  TIEMode = (iemIE7, iemIE8);
  // iemIE8: To run a WebBrowser control in IE8 Standards Mode
  // iemIE7: To run in IE7 Standards Mode

procedure SetWebbrowserMode(Mode: TIEMode; AppName: string = '');
const
  REG_KEY = 'Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION';
var
  Reg: TRegistry;
  Value: Integer;
begin
  if AppName = '' then
    AppName := ExtractFileName(Application.ExeName);
  Case Mode of
    iemIE7 : Value := $1B58;
    iemIE8 : Value := $1F40;
  end;
  Reg := TRegistry.Create();
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey(REG_KEY, True) then
    begin
      Reg.WriteInteger(AppName, Value);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

Ein Beispielaufruf könnte so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWebbrowserMode(iemIE8)
end;