Как завершить процессы по имени, а не по текущему процессу?

Question

В 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;

Answer 1

При перечислении сравнивайте FProcessEntry32.th32ProcessID с GetCurrentProcessId. Если эти значения совпадают, то процесс, который вы перечисляете, является вызывающим процессом, и вы можете пропустить код завершения.