码迷,mamicode.com
首页 > 其他好文 > 详细

一个比较方便的关闭进程函数

时间:2014-05-06 17:59:10      阅读:270      评论:0      收藏:0      [点我收藏+]

标签:style   blog   class   code   java   ext   

原创哦...如果有更好的功能或者BUG修订请通知我, 谢谢

bubuko.com,布布扣
uses
  TLHelp32, PsAPI;

{AFile: 要结束的进程
AEffectFirst: 是否只结束第一个找到的进程

可以只输入EXE名称, 或者全路径+文件名, 或者只是某个文件路径
如果输入的只是某个路径, 则关闭属于这个路径下的所有进程}
function KillProcess(AFile: string; AEffectFirst: Boolean = True): WORD; overload;
const
  PROCESS_TERMINATE = $0001;
var
  nContinueLoop: BOOL;
  nSnapShotHandle: THandle;
  nProcessEntry32: TProcessEntry32;
  nSelfID, nPrHandle: Cardinal;
  nMBF: array [0..MAX_PATH] of Char;
  nCMode: Byte; {0:检测全路径文件, 1:仅检测文件 2:仅检测路径}
  nCPath, nCFile, nStr, nFile, nPath: string;
begin
  Result := 0;
  AFile := UpperCase(AFile);
  nCPath := ExtractFilePath(AFile);
  nCFile := ExtractFileName(AFile);

  if (nPath <> ‘‘) and (nCFile <> ‘‘) then
    nCMode := 0
  else if nCFile <> ‘‘ then
    nCMode := 1
  else if nCPath <> ‘‘ then
    nCMode := 2
  else
    Exit;

  nSelfID := GetCurrentProcessID;
  nSnapShotHandle := CreateToolhelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  try
    nProcessEntry32.dwSize := SizeOf(nProcessEntry32);
    nContinueLoop := Process32First(nSnapShotHandle, nProcessEntry32);
    while nContinueLoop do
    begin
      if nProcessEntry32.th32ProcessID <> nSelfID then
      begin
        nStr := UpperCase(nProcessEntry32.szExeFile);
        nFile := ExtractFileName(nStr);
        nPrHandle := OpenProcess(PROCESS_ALL_ACCESS, False, nProcessEntry32.th32ProcessID);
        try
          if nCMode <> 1 then
          begin
            nPath := ExtractFilePath(nStr);
            if nPath = ‘‘ then
            begin

              if GetModuleFileNameEx(nPrHandle, 0, @nMBF[0], SizeOf(nMBF)) > 0 then
                nPath := UpperCase(ExtractFilePath(nMBF));
            end;
          end;

          if ((nCMode = 0) and (nPath = nCPath) and (nFile = nCFile)) {全路径文件名相同}
            or ((nCMode = 1) and (nFile = nCFile)) {文件名相同}
            or ((nCMode = 2) and (Copy(nPath, 1, Length(nCPath)) = nCPath)) {路径包含} then
          begin
            TerminateProcess(nPrHandle, 0); {强制关闭进程}
            if AEffectFirst then
              Break;
          end;
        finally
          CloseHandle(nPrHandle);
        end;
      end;
      nContinueLoop := Process32Next(nSnapShotHandle, nProcessEntry32);
    end;
  finally
    CloseHandle(nSnapShotHandle);
  end;
end;
bubuko.com,布布扣

 

一个比较方便的关闭进程函数,布布扣,bubuko.com

一个比较方便的关闭进程函数

标签:style   blog   class   code   java   ext   

原文地址:http://www.cnblogs.com/hs-kill/p/3712046.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!