如何用ie打开一个网页并在5秒后自动关闭(100)

就是说我想让程序访问一个网站的页面，打开成功后5秒钟自动结束这个进程，有点像刷流量的原理一样，我能打开但是不知道如何关闭。请教大富翁们一下，最好是代码一下，要不不懂的，本人小菜一个了。

你先访问这个网站，５秒后再跳到另一个网站就可以了。

我的问题是如果结束我打开的这个ie的进程，要有代码才能说得清楚我的代码是这样的ShellExecute(Handle,nil,'iexplore',PChar('www.cnxba.com'),nil,SW_HIDE) ; 我要如何结束它呢？网址不是固定的，你就用这个网址为例子吧。

用sendmessage来发按键，关闭指定的IE程序。

var pi: PROCESS_INFORMATION; //全局变量 si: STARTUPINFO;procedure TForm1.Button1Click(Sender: TObject);begin Createprocess('C:/Program Files/Internet Explorer/IEXPLORE.EXE', '-new www.baidu.com', nil, nil, true, 0, nil, nil, si,pi); Sleep(5000); TerminateProcess(pi.hProcess,0) ;end;给分我。。。

楼上的sleep改成waitforsingleobject

我试了fishhao的代码，没打开IE！~

var pi: PROCESS_INFORMATION; //全局变量 si: STARTUPINFO;function GetIEAppPath:string; //获取IE 路径函数variekey: Hkey;iename: array [0..255] of char;vType,dLength WORD;beginvType := REG_SZ;RegOpenKeyEx(HKEY_LOCAL_MACHINE,'Software/Microsoft/Windows/CurrentVersion/AppPaths/IEXPLORE.EXE',0,KEY_ALL_ACCESS,iekey);dLength := SizeOf(iename);if RegQueryValueEx(iekey, '' , nil, @vType, @iename[0], @dLength) = 0 thenResult := ienameelseResult := 'C:/Program Files/Internet Explorer/IEXPLORE.EXE';RegCloseKey(iekey);end;procedure TForm1.Button1Click(Sender: TObject);begin Createprocess(PChar(GetIEAppPath), '-new www.baidu.com', nil, nil, true, 0, nil, nil, si,pi); WaitForSingleObject(pi.hProcess,5000); TerminateProcess(pi.hProcess,0) ;end;

不复杂的话，放个webbrowse控件，自己做个浏览器得了

好多天没来了，今天才来试了可以，但是还有一个问题就是如何不让窗口显示出来？

fishhao 如果用 TerminateProcess(pi.hProcess,0) ;这样会留下一个ie的进程（占用内存80k）,如果程序退出系统会清理进程表，但是如果程序一直在运行的话就会留下很多的ie进程，这个问题如何解决？

这两个问题能补充一下吗？