Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Url yi internet explorer sayfasında açmak

Procedure UrlGit(Adres:String); var app:Variant; begin app:=CreateOleObject('InternetExplorer.Application'); app.navigate(Adres); app.visible:=True; app.Fullscreen:=False; app := Unassigned; end; Kullanımı UrlGit(MenuCaption);