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

Question

在 Delphi 2007 年，我使用下面的代码通过名称终止进程。它有效，但我想终止所有进程，但名称不是当前应用程序之一。我的目标是关闭我的应用程序的所有重复进程，只让当前进程运行.

function closeProc(pname : string): integer;
const
PROCESS_TERMINATE = [=10=]01;
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;

Answer 1

枚举时，比较FProcessEntry32.th32ProcessID和GetCurrentProcessId。如果这些值匹配，那么您正在枚举的进程就是调用进程，您可以跳过终止代码。

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

How to terminate processes by name, but not the current process?

delphi

delphi-2007