Zamykanie programu działającego w Windowsie, gdy znamy jego nazwę

Aby po kliknięciu przycisku Button1 zamknąć kalkulator (żeby młodsze rodzeństwo uczące się matematyki nie oszukiwało):

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject* Sender)
{
   int Kalkulator;
   Kalkulator = (int)FindWindow(NULL, "Kalkulator");
   if (Kalkulator == 0)
      ShowMessage("Kalkulator nie uruchomiony");
   else
      SendMessage((void*)Kalkulator, WM_CLOSE, 0, 0);
}