怎么结束所有IE进程

如何结束所有IE进程？
打开了诸多网页，用系统的IE浏览器，现在是想将所有的IE进程都强行结束(不是简单的关闭浏览器，是结束进程)，这个怎么写？？



[解决办法]
给你一个函数，按照程序文件名字杀掉进程。

Delphi(Pascal) code

function KillTask(const ExeName: string): Boolean;{  强制终止ExeName对应的应用程序}var  lppe: TProcessEntry32;  SH, PID: THandle;  Found: boolean;begin  Result := False;  EnablePrivilege('SeDebugPrivilege', True);  lppe.dwSize := SizeOf(lppe);  SH := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);  found := Process32First(SH, lppe);  while found do  begin    if SameText(ExeName, ExtractFileName(lppe.szExeFile)) then    begin      PID := OpenProcess(PROCESS_ALL_ACCESS, true, lppe.th32ProcessID);      Result := TerminateProcess(PID, DWORD(-1));      CloseHandle(PID);    end;    found := Process32Next(SH, lppe);  end;  EnablePrivilege('SeDebugPrivilege', False);end;