Delphi打开浏览器

---

uses
  ShellAPI;

sURL := 'www.baidu.com';

//IE浏览器
ShellExecute(0, nil, PChar(sURL), nil, nil, SW_SHOWMINIMIZED)

//谷歌浏览器
ShellExecute(0, 'open', 'chrome.exe', PChar(sURL), nil, SW_NORMAL);

//默认浏览器
ShellExecute(handle, 'open', PChar(sURL), nil, nil, SW_SHOW); 

---