如何在默认浏览器中以新窗口打开网页？

Question

如何在默认浏览器中以新窗口打开网页？有的是直接用IE打开新窗口 有的是用默认浏览器打开但是会覆盖之前的窗口求完整能在默认浏览器中以新窗口打开网页的代码！谢谢了

Answer 1

本帖最后由 jinjazz 于 2007-12-23 11:54:11 编辑

  

Answer 2

放一个TWebBrowser控件，然后
procedure TForm1.Button1Click(Sender: TObject);
var
  flag,target:OleVariant;
begin
  flag:=EmptyParam;
  target:='_blank';
  WebBrowser1.Navigate('http://www.goolg.cn',flag,target);
end;

Answer 3

jinjazz 的能在默认浏览器中打开 但是会覆盖之前的窗口
ideation_shang 不知哪里出了问题 显示'不支持此接口'

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(handle, 'open','explorer.exe','http://www.163.com', nil, SW_SHOWNORMAL);
end;可以理解为新打开一个资源管理器,然后在地址栏里面输入了url

Answer 5

WebBrowser1.Navigate('http://www.goolg.cn',flag,target); winXp sp2,ie6 测试通过,不知道你的环境是什么样

Answer 6

为什么我不行啊 我用：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var 
    flag,target:OleVariant;
begin
    flag:=EmptyParam;
    target:='_blank';
    WebBrowser1.Navigate('http://www.goolg.cn',flag,target);
end;end.