[roman]

Empezado por cso2000

 
var 
  R: TRect;
begin 
  SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);

De hecho, Screen.WorkAreaRect es justamente el rectángulo que obtienes con SPI_GETWORKAREA.

// Saludos