请问大家：如何点击一个按钮后，生成多个ie窗口？

Question

shellexcute......我用ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);只能生成一个ie浏览窗口请大家帮帮忙不胜感激
～～～～～

Answer 1

ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
....此处略去10000行
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);

Answer 2

《《 jinjazz
我试了，不行不信你可以尝试一下

Answer 3

//uses Comobj;  要加procedure TForm1.Button1Click(Sender: TObject);
var
  IEApp,IEApp1: OLEVariant;         
begin
  IEApp         := CreateOLEObject('InternetExplorer.Application');
  IEApp.Visible := True;
  IEApp.Navigate('www.yahoo.com');
  IEApp1         := CreateOLEObject('InternetExplorer.Application');
  IEApp1.Visible := True;
  IEApp1.Navigate('www.excite.com');
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
begin
  s:='www.qq.com';
  for i:=1 to 5 do
   WinExec(Pchar('C:\Program Files\Internet Explorer\IEXPLORE.EXE '+s),9);
end;