delphi 判断进程名是否存在，如果存在则结束进程

单元：TlHelp32

function IsExeRunning(const AExeName: string): boolean;

var

h: THandle;

p: TProcessEntry32;

begin

Result := False;

p.dwSize := SizeOf(p);

h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);

try

Process32First(h, p);

repeat

Result := AnsiUpperCase(AExeName) = AnsiUpperCase(p.szExeFile);

until Result or (not Process32Next(h, p));

finally

CloseHandle(h);

end;

function KillTask(ExeFileName: string): Integer;

const

PROCESS_TERMINATE = $0001;

var

ContinueLoop: BOOL;

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;

用法：

if (IsExeRunning('CompatTelRunner.exe') = true) then

KillTask('CompatTelRunner.exe');

推荐分享