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));
}