读书人

怎么结束所有IE进程

发布时间: 2012-03-24 14:00:46 作者: rapoo

如何结束所有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; 

读书人网 >.NET

热点推荐