Размер рабочего стола
	
procedure TForm1.Button1Click(Sender: TObject);
var  r : TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA,                       0,
                       @r,
                       0);

  Memo1.Lines.Add(IntToStr(r.Top));
  Memo1.Lines.Add(IntToStr(r.Left));
  Memo1.Lines.Add(IntToStr(r.Bottom));
  Memo1.Lines.Add(IntToStr(r.Right));
end;