打开网页

打开网页

uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
  //用IE打开
  ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL);
  //用火狐打开
  ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL); 
  //用默认浏览器打开
  ShellExecute(Handle, 'open', 'Explorer.exe', 'about:blank', nil, SW_SHOWNORMAL);
end;