首页  编辑  

用API函数开不同的浏览器窗口

Tags: /超级猛料/OS.操作系统/IE.扩展/   Date Created:

请问如何用WINDOWS API函数开不同的浏览器窗口?我用了SHELLEXECUTE函数,可是每次只

能开一个窗口,再执行时还是一个窗口。旧的内容都被新的内容覆盖了。怎样才能开新窗口?

1:ShellExecute(handle....) handle不一样即可;

2:

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);

 procedure OpenInIE(aURL: string);   //need uses ComObj;

 var

   IE        : Variant;

 begin

   IE := CreateOleObject('InternetExplorer.Application');

   IE.Visible := true;

   IE.Navigate(aURL);

 end;

begin

 OpenInIE('www.delphibbs.com');

end;

最简单的方法:

ShellExecute(handle,'open','Explorer','Your www URL',nil,SW_SHOW);

即可。