(CodeLib-Manager)
Registriert seit: 10. Jun 2002
4.648 Beiträge
Delphi XE Professional
|
Re: Internet Explodierer via COM/OLE ansprechen?
5. Nov 2008, 10:27
Zitat von mkinzler:
Späte Bindung sollte aber auch funktionieren
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.net',' ',' ',' ',' ');
end;
Thomas
|
|
Zitat
|