如何將另一執行中的程序關畢?(50分)

如何編程實現, 將另一執行中的程序關畢?

关闭外部应用程序


　　如何在 Delphi 应用程序中，去关闭外部已开启的应用程序？
下面给出一段在 Delphi 中关闭“计算器”程序为例：
var
HWndCalculator : HWnd;
begin// find the exist calculator window
HWndCalculator := FindWindow(nil, '计算器'); // close the exist Calculator
if HWndCalculator <> 0 then
SendMessage(HWndCalculator, WM_CLOSE, 0, 0);
end;

sendmessage(handle,wm_close,0,0)

多人接受答案了。