IWebBrowser2 with Delphi

Show Internet Explorer with IWebBrowser2

  
uses ComObj, SHDocVw;

var
  ie: IWebBrowser2;
  sUrl: string;
  Flag, TargetFrameName, PostData, Headers: OleVariant;
  pvaIn, pvaOut: OleVariant;
begin
  // Create InternetExploer
  ie := CreateOleObject('InternetExplorer.Application') as IWebBrowser2;
  ie.Left := 0;
  ie.Top := 0;
  ie.Width := 100;  // Browser form width
  ie.Height := 300; // Browser form height

  ie.MenuBar := False;
  ie.AddressBar := False;
  ie.Resizable := False;
  ie.StatusBar := False;
  ie.ToolBar := 0;

  sUrl := 'www.google.com';
  ie.Navigate2(sUrl, Flag, TargetFrameName, PostData, Headers);

  // wait Document complate
  while ie.ReadyState < READYSTATE_INTERACTIVE do
  begin
    Application.ProcessMessages;
  end;

  try
    // Zoom 
    pvaIn := 100;
    pvaOut := Null;

    ie.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, pvaIn, pvaOut);

    // Location name (No title site)
    pvaIn := 'Web Title';
    ie.ExecWB(OLECMDID_SETTITLE, 0, pvaIn, pvaOut);

    ie.Visible := true;
  except
  end;