用下面的代码可以实现打开IE浏览器并浏览网页,但是却无法在新窗口中打开!ShellExecute(Handle, 'Open', Pchar('http://bbs.2ccc.com/'),nil, nil, SW_SHOWNORMAL) 当每次点击时候都在已经打开了的IE中打开网页!请问有什么办法可以使它能自动弹出新窗口并在新窗口中打开网页? 

解决方案 »

  1.   

    WinExec('C:\Program Files\Internet Explorer\iexplore.exe "http:/bbs.2ccc.com"', SW_SHOWNORMAL);
      

  2.   

    wangxibing(炳) 的代码我也知道,也是不行!
      

  3.   

    procedure openie ;
    begin
     WinExec('C:\Program Files\Internet Explorer\iexplore.exe "www.sina.com.cn"', SW_SHOWNORMAL);
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    var
    threadid:DWORD;
    begin
     createthread(nil,0,@openie,nil,0,threadid);
    end;
    经过测试,可以。