简单问题(10分)

ShellExecute(Handle, nil, PChar('Http://www.sohu.com'), nil, nil, SW_SHOWNORMAL); <br>--------------------------------------------------------------------- <br>使用以上语句打开搜狐主页，如果有打开的ie窗口的话总是在打开的窗口中转到搜狐，<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><br>

ShellExecute(Handle, 'open', 'iexplore', 'www.sohu.com', nil, SW_SHOWNORMAL);

谢谢！