怎样杀死一个进程？（在线等待）(100分)

我现在把所有系统进程列出来了，不过是执行文件路径方式显示的,我看了篇文章
procedure TForm1.Button1Click(Sender: TObject);
var
H:THandle;
PWORD;
begin
H:=FindWindow(nil,'无标题 - 记事本');
if H<>0 then
begin
GetWindowThreadProcessId(H,@P);
if P<>0 then
TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
end;
end;

我怎么才能通过列表得到相应的窗口标题呢？

杀死指定ProcessID的进程：
function KillProcess(AProcessID: Integer): Boolean;
var
hProcess: THandle;
begin
hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, AProcessID);
try
Result := (hProcess > 0) and TerminateProcess(hProcess, 0);
finally
CloseHandle(hProcess);
end;
end;

得到窗口标题要先根据进程ID取得其主窗口的Handle，再根据此Handle由API
GetWindowText取得窗口标题

[red][/red]呵呵，谢谢，我只有100分了哈，分一半给你，不会介意吧

接受答案了.