I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何用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);
即可。
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);
即可。