在DELPHI程序中,如何打开IE窗口浏览指定的网页(100分)

在DELPHI程序中,如何打开IE窗口浏览指定的网页

怎么没人回答我的问题,是否太简单了

在uses部分加入 ShellApi

然后在程序中如下调用就行了。
procedure TfrmAbout.Label2Click(Sender: TObject);
begin
ShellExecute(Application.Handle,nil,'http://www.codechina.net',nil,nil,SW_SHOWNORMAL);
end;
用ShellExecute来实现。

ShellExecute(handle,'open','c:/myapp/myapp.exe','-s','',SW_SHOWNORMAL);

用法：
第一个参数为父窗口句柄；
第二个参数为找开方式（OPEN,PRINT两种）；
第三个参数为执行文件的全路径；
第四个参数为执行文件参数；
第五个为执行文件开始时的初始目录；
第六个我想就不用我说了吧。
具体就看帮助吧。还有，如果为字符串参数，其中包含变量或运算的必须用PCHAR()进行转代
。


例子：

ShellExecute(handle,nil,pchar('http://www.delphibbs.com'),nil,nil,SW_SHOWNORMAL);


切记在用到ShellExecute时，一定要在 uses 那边加上 ShellAPI 单元。

To honestman：你这样是打开默认浏览器，如果默认被设为别的如Netscape怎么办？！

谢谢

ShellExecute(Handle, 'open', 'IEXPLORE','http://www.xxx.net, nil, SW_SHOWNORMAL);

ShellExecute( this->Handle, NULL, "IEXPLORE", PChar( (URLData.URL).c_str() ), NULL, WindowSize1->Tag );

ExePath:="IEXPLORE.EXE";
WinExec(PChar(ExePath+' '+UrlStrings),SW_MINIMIZE);