关闭外部应用程序

    var

    HWndCalculator:HWnd；

    Begin

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

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

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

    if HWndCalculator <> 0 then

    SendMessage(HWndCalculator， WM_CLOSE， 0， 0)；

    end；