如何检测并关闭指定的进程？(100分)

如何检测并关闭指定的进程？
给出关键思路。

没有人啊，自己顶一个

用API

用“查找 and 进程 and 关闭”做关键字在DFWSearch中查一下肯定有的！分数宝贵，珍惜使用...呵呵：）

查到的看看行不行（没有试过...）
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 TForm1.Button1Click(Sender: TObject);

begin

KillTask('notepad.exe');

end;
详见：http://www.delphibbs.com/delphibbs/dispq.asp?lid=2167044

呵呵，谢谢，我试试！

是否测试通过了呢？要是可以的话，楼主别忘记放分哦！呵呵：）

呵,谢谢