遍历结束指定进程演示

uses Tlhelp32;
var
  ProcArr: array of TProcessEntry32;

procedure EnumProcess(pNameList, PidList: TStrings);
var
  hProcess: THandle;
  Find: Boolean;
  Proc: TProcessEntry32;
  i: DWORD;
begin
  try
    hProcess := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    Proc.dwSize := SizeOf(Proc);
    Find := Process32First(hProcess, Proc);
    i := 0;
    while Find do
    begin
      SetLength(ProcArr, i + 1);
      ProcArr[i] := Proc;
      inc(i);
      pNameList.Add(Proc.szExeFile);
      PidList.Add(inttostr(Proc.th32ProcessID));
      Find := Process32Next(hProcess, Proc);
    end;
  finally
    CloseHandle(hProcess);
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
const
  ProcName = 'Goghost.exe';
var
  PnList, PidList: TStringList;
  i: DWORD;
begin
  try
    PnList := TStringList.Create;
    PidList := TStringList.Create;
    PnList.Clear;
    PidList.Clear;
    EnumProcess(PnList, PidList);
    for i := Low(ProcArr) to High(ProcArr) do
      if SameText(ProcArr[i].szExeFile, ProcName) then
        TerminateProcess(OpenProcess(PROCESS_TERMINATE, False, Procarr[i].th32ProcessID), 0);
  finally
    FreeAndNil(PnList);
    FreeAndNil(PidList);
  end;
end;