var

   HWndCalculator:HWnd；

   Begin

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

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

   // 關閉存在的計算器窗口

   if HWndCalculator <> 0 then

   SendMessage(HWndCalculator， WM_CLOSE， 0， 0)；

   end；