如何在Business平台中打开一个网页

蔚蓝海岸

在打开一个网页的时候，需要用到一个函数ShellExecute，简单介绍一下函数的用法：

函数声明：HINSTANCE  ShellExecute(HWND hwnd；LPCTSTR lpOperation；LPCTSTR lpFile；LPCTSTR lpParameters；LPCTSTR lpDirectory；INT nShowCmd );

引用单元：Borland.Delphi.ShellAPI

参数说明：
1、hwnd：handle to parent window。
2、lpOperation：pointer to string that specifies operation to perform。
3、lpFile：pointer to filename or folder name string。
4、lpParameters：pointer to string that specifies executable-file parameters。
5、lpDirectory：pointer to string that specifies default directory。
6、nShowCmd：whether file is shown when opened。

       
1、Business平台在IE状态下，在原来IE浏览器上打开新的链接
Borland.Delphi.ShellAPI.ShellExecute(Forms.Application.Handle, 'open',sURL,'','',Borland.Delphi.Windows.SW_SHOWMAXIMIZED);

2、新的链接重新打开一个IE浏览器
Borland.Delphi.ShellAPI.ShellExecute(0, 'open', 'IEXPLORE.EXE', sURL, '', Borland.Delphi.Windows.SW_SHOW);