现以关闭"计算器"为例;

Var
HWndCalculator:HWnd;
Begin
//查找存在的计算器窗口;
HWndCalculator:=Winprocs.FindWindow(nil,'计算器');
if HwndCalculator< > 0 then
SendMessage(HwndCalculator,WM_CLOSE,0,0);
end;