[[xEsk]]

Si quieres obtener solo el area de trabajo (vamos el escritorio usable, sin la barra de inicio) puedes usar esto:

Código Delphi [-]
var
  R: TRect;
begin
  // Obtiene el area de trabajo exacto (sin contar el menu inicio
  // sea cual sea su altura, posicion, etc etc... ya q obtendras el
  // area de trabajo REAL (usable))
  SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);

Asi pues en la variable R tienes ahora el Left, Top, Right, Bottom q son valores Enteros, o TopLeft, BottomRight q son del tipo TPoint.

Saludos.