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

f77024062 2007-12-23 10:51:26
如何在默认浏览器中以新窗口打开网页?

有的是直接用IE打开新窗口 有的是用默认浏览器打开但是会覆盖之前的窗口

求完整能在默认浏览器中以新窗口打开网页的代码!

谢谢了
...全文
839 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
ideation_shang 2007-12-23
  • 打赏
  • 举报
回复
放一个TWebBrowser控件,然后
procedure TForm1.Button1Click(Sender: TObject);
var
flag,target:OleVariant;
begin
flag:=EmptyParam;
target:='_blank';
WebBrowser1.Navigate('http://www.goolg.cn',flag,target);
end;
jinjazz 2007-12-23
  • 打赏
  • 举报
回复
try
 ShellExecute(Handle, 'open','rundll32.exe',
'url.dll, FileProtocolHandler www.google.com', nil, SW_SHOW);
f77024062 2007-12-23
  • 打赏
  • 举报
回复
为什么我不行啊 我用:

unit Unit1;

interface

uses
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.

hahe7788 2007-12-23
  • 打赏
  • 举报
回复
和LS一样,测试通过
ideation_shang 2007-12-23
  • 打赏
  • 举报
回复
WebBrowser1.Navigate('http://www.goolg.cn',flag,target);

winXp sp2,ie6 测试通过,不知道你的环境是什么样
byteh 2007-12-23
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle, 'open','explorer.exe','http://www.163.com', nil, SW_SHOWNORMAL);
end;

可以理解为新打开一个资源管理器,然后在地址栏里面输入了url
f77024062 2007-12-23
  • 打赏
  • 举报
回复
jinjazz 的能在默认浏览器中打开 但是会覆盖之前的窗口
ideation_shang 不知哪里出了问题 显示'不支持此接口'
f77024062 2007-12-23
  • 打赏
  • 举报
回复
up

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧