如何按名称终止进程，而不是当前进程？答案

【问题标题】：How to terminate processes by name, but not the current process?如何按名称终止进程，而不是当前进程？
【发布时间】：2020-01-23 17:46:52
【问题描述】：

在 Delphi 2007 中，我使用下面的代码通过名称来终止进程。它可以工作，但我想终止所有进程，但名称是当前应用程序之一。我的目标是关闭我的应用程序的所有重复进程，只让当前一个运行。

function closeProc(pname : 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(pname)) then
        begin
          Result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
        end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
    end;
CloseHandle(FSnapshotHandle);
end;

【问题讨论】：

BOOL 变量的处理有点奇怪。您可以将它们视为真值，无需在整数之间进行转换。此外，还有一些错误的错误检查。对 Result 的重复分配意味着您的返回值仅与对 TerminateProcess 的最后一次调用有关。再次，布尔返回值可能更有意义，一旦您修复它以考虑对 TerminateProcess 的所有调用。

标签： delphi delphi-2007

【解决方案1】：

枚举时，将FProcessEntry32.th32ProcessID 与GetCurrentProcessId 进行比较。如果这些值匹配，则您枚举的进程是调用进程，您可以跳过终止代码。

【讨论】：