void __fastcall TForm1::Button1Click(TObject *Sender){ HWND HParent = FindWindow(0, "Калькулятор"); char ClassName[10]; GetClassName(HParent,ClassName,10); Button1->Caption = ClassName;}