如何打开IE窗口?(200分)

  • 主题发起人 主题发起人 cococo
  • 开始时间 开始时间
C

cococo

Unregistered / Unconfirmed
GUEST, unregistred user!
Exec或ShellExecute都能打开IE窗口,<br>但如果要打开无ToolBar的任意尺寸的窗口呢?<br>如javascript中的open
 
uses ComObj;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>&nbsp; procedure OpenInIE(aURL: string); &nbsp; //need uses ComObj;<br>&nbsp; var<br>&nbsp; &nbsp; IE &nbsp; &nbsp; &nbsp; &nbsp;: Variant;<br>&nbsp; begin<br>&nbsp; &nbsp; IE := CreateOleObject('InternetExplorer.Application');<br>&nbsp; &nbsp; IE.Visible := true;<br>&nbsp; &nbsp; IE.Navigate(aURL);<br>&nbsp; end;<br>begin<br>&nbsp; OpenInIE('www.delphibbs.com');<br>end;<br>这样行不行???<br>
 
有以下问题没解决。<br>1.无法定尺寸<br>2.无法去除toolbar
 
各位大虾好!有空请参观本人站点(下载110)<br>http://www.down110.com<br>欢迎提出建议,大家一起进步!Email:web@down110.com
 
有两种方法:<br>一,通过com,类似app2001的做法。不过具体设置IE.哪些属性记不得了,你可以参考一下IEDelphi网站。<br>二,打开exe同目录下一个htm文件,这个文件带有javascript脚本,设定ie窗口的位置和大小,然后,把self.location改到指定的网站。缺点是,这个网址好像必须写死,如果,你要打开多个这样的窗口就不行了<br>
 
使用TWebbrowser浏览网页<br>
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部