查找并结束进程（改进了一下）

关注

原创最新推荐文章于 2026-08-04 09:53:56 发布 615 阅读 AI 写同款· GEO 优化 ›

查找并杀死僵尸进程最近碰到一个进程怎么都杀不死。可能是僵尸级的进程。于是利用命令 ps -A -o stat,ppid,pid,cmd | grep -e ‘^[Zz]’ 查找到对应的额pid 然后kill -15 pid 就可以了阅读详情

unit FKProcess;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Tlhelp32, StdCtrls;

type
TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Function FindProcess(ProcessName: PChar): Boolean;
var
Snap: THandle;
Lp: Boolean;
PE: TProcessEntry32;
begin
Result := False;
snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
if snap <= 0 then begin
  Exit;
end;
PE.dwSize := SizeOf(TProcessEntry32);
Lp := Process32First(snap,PE);
while Lp do begin
  if PE.szExeFile = Trim(ProcessName) then begin
   Result := True;
  end;
Lp := Process32Next(snap,PE);
end;
CloseHandle(snap);
end;

//函数
function KillProcess(ProcessName: PChar): Boolean;
const
PROCESS_TERMINATE = $0001;
var
Snap: THandle;//存放CreateToolhelp32Snapshot()
PE: TProcessEntry32;//存放PROCESSENTRY32结构
Lp: Boolean;//存放Process32First()、Process32Next()
Op: THandle;//存放OpenProcess()
begin
Result := False;
snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);//获得进程快照
if snap <= 0 then begin
  Exit;
end;
PE.dwSize := SizeOf(TProcessEntry32);//为dwSize赋值
Lp := Process32First(snap,PE);//枚举当前的进程
while Lp do begin
  if PE.szExeFile = Trim(ProcessName) then//进程名与szExeFile比较
  begin
   Op := OpenProcess(PROCESS_TERMINATE,False,PE.th32ProcessID);//打开句柄
   Result := TerminateProcess(Op,0);//结束进程
  end;
Lp := Process32Next(snap,PE);//枚举当前的进程
end;
CloseHandle(snap);//关闭句柄
end;

procedure TForm1.FormCreate(Sender: TObject);
var
PName: String;
ProName: PChar;
begin
PName := 'notepad++.exe';
ProName := PChar(PName);
ListBox1.Items.Add('程序开始运行...');
if FindProcess(ProName) then begin
  ListBox1.Items.Add('发现进程notepad++.exe...');
  if KillProcess(ProName) then begin
   ListBox1.Items.Add('结束进程notepad++.exe成功...');
  end else begin
   ListBox1.Items.Add('结束进程notepad++.exe失败...');
  end;
end else begin
  ListBox1.Items.Add('未发现进程notepad++.exe...');
end;
end;