delphi 中如何用Api的ShellExecute()在新窗口中打开网页? (50分)

  • 主题发起人 主题发起人 liuben13
  • 开始时间 开始时间
L

liuben13

Unregistered / Unconfirmed
GUEST, unregistred user!
ShellApi 中的<br>&nbsp; ShellExecute(handle,nil,nil,pchar('www.6to23.com'),nil,nil,SW_SHOWNORMAL);<br>是在当前窗口中打开网页,如何在新窗口中打开网页?<br>请教!!!(SOS)
 
我也想知道
 
这样就行啦:<br>&nbsp; ShellExecute(Handle, 'OPEN',<br>&nbsp; &nbsp; PChar('http'www.6to23.com'), nil, nil, sw_shownormal);<br>
 
这个问题讨论过:<br>请问如何用WINDOWS API函数开不同的浏览器窗口?我用了SHELLEXECUTE函数,可是每次只<br>能开一个窗口,再执行时还是一个窗口。旧的内容都被新的内容覆盖了。怎样才能开新窗口?<br><br>1:ShellExecute(handle....) handle不一样即可;<br>2:<br>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>
 
试了一下,用shellexecute是不行,只有这样啦:<br>&nbsp;winexec(pchar('iexplore www.delphibbs.com'), SW_MAXIMIZE);<br>如果不是用iexplore,还要先判断目前的默认浏览器。
 
接受答案了.
 
最简单的方法(一定行):<br>shellexecute(handle,'open','explorer.exe','kingron.myetang.com',nil,SW_SHOW);
 
后退
顶部