如何在程序中启动 IE 并自动进入某个网页？？

如题

解决方案 »

  1.   

    uses Comobj, ... ... ;{...}varForm1: TForm1;IEApp: Variant;{...}procedure TForm1.Button1Click(Sender: TObject);beginIEApp := CreateOLEObject('InternetExplorer.Application');IEApp.visible := true;IEApp.Top := 0;IEApp.Left := 0;IEApp.width := screen.width;IEApp.height := screen.height;IEApp.Navigate('http://www.csdn.net');end;
      

  2.   

    e_address:='www.re-china.com';
        shellexecute(handle,nil,pchar('http://'+e_address),nil,nil,SW_SHOWNORMAL);
      

  3.   

    shellexecute(handle,nil,pchar('http://www.sina.com.cn'),nil,nil,SW_SHOWNORMAL);
      

  4.   

    大飞虫果然是个高手，向你学习！
    借此宝地向你请教一下：ComObj这个单元有什么作用？都什么时候用到？谢谢！
      

  5.   

    还需要在uses中加入shellapi单元才行
      

  6.   

    to  960379(文物) :我试过了，不过加shellapi也可以啊！
      

  7.   

    如果用SHELL，系统中装有IE和NETSCAPE，如何只用IE启动？？
      

  8.   

    我是把netscape设为默认了,现在想用ie启动
      

  9.   

    shellexecute(handle,nil,pchar('http://www.sina.com.cn'),nil,nil,SW_SHOWNORMAL);
      

  10.   

    我是把netscape设为默认了,现在想用ie启动