void __fastcall TForm1::Button1Click(TObject *Sender) { TRect hRect; SystemParametersInfo(SPI_GETWORKAREA , 0, &hRect, 0); ShowMessage(IntToStr(hRect.Top) + " " + IntToStr(hRect.Left) + " " + IntToStr(hRect.Bottom) + " " + IntToStr(hRect.Right)); }