Programdan Bir Internet Adresini Yeni ve Istenilen Ozelliklerde Bir Pencerede Açmak!

[ReKoBaa_61]

procedure TFmMain.GotoUrl(SUrl: string; Width, Height: Integer; ToolBar: Boolean);

const

csOLEObjName = 'InternetExplorer.Application';

var

IE : Variant;

WinHanlde : HWnd;

begin

if( VarIsEmpty( IE ) )then

begin

IE := CreateOleObject( csOLEObjName );

IE.Visible := true;

IE.Toolbar := Toolbar;

if Width > 0 then IE.Width := Width;

if Height > 0 then IE.Height := Height;

IE.Navigate( sURL );

end else

begin

WinHanlde := FindWIndow( 'IEFrame', nil );

if( 0 WinHanlde )then

begin IE.Navigate( sURL );

SetForegroundWindow( WinHanlde );

end else

begin

ShowMessage('Internet Explorer acilamadi');

end;

end;

end;



Kullanimi:

{adresi yukseklik ve genislik belirtmeden acar }

GotoUrl('http://www.kelebekforum.com', 0, 0, True);

{adresi yukseklik ve genislik belirterek toolbar

olmayan bir pencerede acar }

GotoUrl('http://www.kelebekforum.com') , 400, 400, False);