var
Hwndcalculator: hwnd;
Mulai
// Temukan jendela kalkulator yang ada
Hwndcalculator: = winprocs.findwindow (nil, '' calculator '');
// tutup jendela kalkulator yang ada
Jika hwndcalculator <> 0 lalu
SendMessage (hwndcalculator, wm_close, 0, 0);
akhir;