var
hwndcalculator: hwnd ؛
يبدأ
// ابحث عن نافذة الآلة الحاسبة الموجودة
hwndcalculator: = winprocs.findwindow (nil ، '' calculator '') ؛
// أغلق نافذة الآلة الحاسبة الموجودة
إذا كان hwndcalculator <> 0 ثم
SendMessage (HwndCalculator ، WM_Close ، 0 ، 0) ؛
نهاية؛