转:中止进程的方法

bambuz

于 2010-12-03 22:28:00 发布

阅读量359

点赞数

分类专栏： delphi 文章标签： integer function string

delphi 专栏收录该内容

34 篇文章 0 订阅

订阅专栏

uses
Tlhelp32;

// 中止进程的方法

function KillTask(ExeFileName:string):Integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
   Result := 0;
   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
       Result := Integer(TerminateProcess(
                         OpenProcess(PROCESS_TERMINATE,
                                     BOOL(0),
                                     FProcessEntry32.th32ProcessID),
                                     0));
      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
   end;
   CloseHandle(FSnapshotHandle);
end;