L liuben13 Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-22 #1 ShellApi 中的<br> ShellExecute(handle,nil,nil,pchar('www.6to23.com'),nil,nil,SW_SHOWNORMAL);<br>是在当前窗口中打开网页,如何在新窗口中打开网页?<br>请教!!!(SOS)
ShellApi 中的<br> ShellExecute(handle,nil,nil,pchar('www.6to23.com'),nil,nil,SW_SHOWNORMAL);<br>是在当前窗口中打开网页,如何在新窗口中打开网页?<br>请教!!!(SOS)
P philipliu Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-05 #3 这样就行啦:<br> ShellExecute(Handle, 'OPEN',<br> PChar('http'www.6to23.com'), nil, nil, sw_shownormal);<br>
这样就行啦:<br> ShellExecute(Handle, 'OPEN',<br> PChar('http'www.6to23.com'), nil, nil, sw_shownormal);<br>
K Kingron Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-05 #4 这个问题讨论过:<br>请问如何用WINDOWS API函数开不同的浏览器窗口?我用了SHELLEXECUTE函数,可是每次只<br>能开一个窗口,再执行时还是一个窗口。旧的内容都被新的内容覆盖了。怎样才能开新窗口?<br><br>1:ShellExecute(handle....) handle不一样即可;<br>2:<br>uses ComObj;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br> procedure OpenInIE(aURL: string); //need uses ComObj;<br> var<br> IE : Variant;<br> begin<br> IE := CreateOleObject('InternetExplorer.Application');<br> IE.Visible := true;<br> IE.Navigate(aURL);<br> end;<br>begin<br> OpenInIE('www.delphibbs.com');<br>end;<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> procedure OpenInIE(aURL: string); //need uses ComObj;<br> var<br> IE : Variant;<br> begin<br> IE := CreateOleObject('InternetExplorer.Application');<br> IE.Visible := true;<br> IE.Navigate(aURL);<br> end;<br>begin<br> OpenInIE('www.delphibbs.com');<br>end;<br>
P philipliu Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-05 #5 试了一下,用shellexecute是不行,只有这样啦:<br> winexec(pchar('iexplore www.delphibbs.com'), SW_MAXIMIZE);<br>如果不是用iexplore,还要先判断目前的默认浏览器。
试了一下,用shellexecute是不行,只有这样啦:<br> winexec(pchar('iexplore www.delphibbs.com'), SW_MAXIMIZE);<br>如果不是用iexplore,还要先判断目前的默认浏览器。
K Kingron Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-30 #7 最简单的方法(一定行):<br>shellexecute(handle,'open','explorer.exe','kingron.myetang.com',nil,SW_SHOW);