关闭外部应用程序

   var

   HWndCalculator:HWnd；

   Begin

   // 找到存在的计算器窗口

   HWndCalculator:= Winprocs.FindWindow（nil， ''计算器''）；

   // 关闭存在的计算器窗口

   if HWndCalculator <> 0 then

   SendMessage(HWndCalculator， WM_CLOSE， 0， 0)；

   end；