如何在一个程序中终止另外一个程序的进程(200分)

如何在一个程序中终止另外一个程序的进程,
另如何获得系统目前所有的进程名

1.下面给出一段在 Delphi 中关闭“计算器”程序为例：
...
var
HWndCalculator : HWnd;
begin
// find the exist calculator window
HWndCalculator := Winprocs.FindWindow(nil, '计算器');

// close the exist Calculator }
if HWndCalculator <> 0 then
SendMessage(HWndCalculator, WM_CLOSE, 0, 0);
end;
2.
(注意uses TLHelp32）
然后
var lppe: TProcessEntry32;
found : boolean;
Hand : THandle;
begin
Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
found := Process32First(Hand,lppe);
while found do
begin
ListBox.Items.Add(StrPas(lppe.szExeFile));//列出所有进程。
found := Process32Next(Hand,lppe);
end;
end;

关注

在已答问题中，标题关键词用“进程”——无数个答案。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=477645
...

接受答案了.