IE starten und als IWebBrowser2 benutzen

[toms]

Hallo,

Du kannst einfach das von CreateOleObject zurueckgegebene IDispatch Interface auf ein IWebBrowser2 casten:

Delphi-Quellcode:

var
  ie: IWebBrowser2;
begin
  ie := CreateOleObject('InternetExplorer.Application') as IWebBrowser2;

Beispiel:

Delphi-Quellcode:

uses
  ComObj, SHDocVw_TLB;

procedure OpenIE(Url, Flags, TargetFrameName, PostData, Headers: OleVariant);

var
  ie: IWebBrowser2;
begin
  ie := CreateOleObject('InternetExplorer.Application') as IWebBrowser2;
  ie.Left := 120;
  ie.Top := 120;
  ie.Width := 700;
  ie.Height := 500;
  ie.MenuBar := False;
  ie.AddressBar := False;
  ie.Resizable := False;
  ie.StatusBar := False;
  ie.ToolBar := 0;
  ie.Navigate2(Url, Flags, TargetFrameName, PostData, Headers);
  ie.Visible := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenIE('www.delphipraxis.de','','','','');
end;