var
Hwndcalculator: HWND;
Commencer
// Trouvez la fenêtre de calculatrice existante
Hwndcalculator: = winprocs.findwindow (nil, '' calculator '');
// Fermez la fenêtre de calculatrice existante
Si hwndcalculator <> 0 alors
SendMessage (hwndcalculator, wm_close, 0, 0);
fin;