强制(关闭/杀死)进程(根据程序名)

2012-06-15 16:29:30 作者:闹猴在线 来源:闹猴在线 浏览次数:0 网友评论 0


uses 
 TlHelp32;

procedure TForm1.Button1Click(Sender: TObject);
const
 PROCESS_TERMINATE=$0001;
var
 ExeFileName: String;
 ContinueLoop: BOOL;
 FSnapshotHandle: THandle;
 FProcessEntry32: TProcessEntry32;
begin
 ExeFileName := 'calc.exe';//程序名称!
 FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
 ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);
 while integer(ContinueLoop) <> 0 do
   begin
   if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
        UpperCase(ExeFileName))
    or (UpperCase(FProcessEntry32.szExeFile) =
        UpperCase(ExeFileName))) then
     TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
                       FProcessEntry32.th32ProcessID), 0);
   ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
   end;
end;

相关文章

[错误报告] [推荐] [收藏] [打印] [关闭] [返回顶部]

最新十条评论
  • 验证码:

最新图片文章

赞助商广告2

最新文章

日文章点击排行

周文章点击排行

月文章点击排行