如何强制结束一个进程?

[goodVIP]

请问如何强制结束一个进程?进程名为“ght.exe”，是恶意软件，有许多个这样的进程，在不更改文件属性、注册表、系统设置等情况下如何全部结束？（注：是强制结束）请在编程时不要添加控件，运行程序它会自己进行，不需要人工干预。

[A3c6v]

谢谢

[goodVIP]

GoodVIP与A3c6v为同一人

[brightyang]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;

procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function KillTask(ExeFileName: 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(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,
FProcessEntry32);
end;

CloseHandle(FSnapshotHandle);
end;



procedure explorer;
begin
try
KillTask ('explorer.exe');
except;
exit;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
explorer;
end;


end.

[hsmserver]

楼上的方法就可以
用TerminateProcess关闭进程

[brightyang]

不过远程进程没试过

[A3c6v]

是不是只要将 KillTask ('explorer.exe'); 改为 KillTask ('ght.exe'); 即可?有许多个这样的进程,都会结束吗?

[ccdarkness]

可能还需要结束进程树这个操作

[brightyang]

正确