Delphi
Статьи:

· Интерфейс

· WinAPI

· Компоненты

· Базы данных

· ShellAPI

WinAPI

Получение размера Рабочего Стола

Вызываем функцию SystemParametersInfo Windows API с параметром SPI_GETWORKAREA вместе с адресом структуры прямоугольника для получения координат:

procedure TForm1.Button1Click(Sender: TObject);
var
  hRect : TRect; 
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @hRect, 0); 
  ShowMessage(IntToStr(hRect.Top) 
              + ' ' + IntToStr(hRect.Left) 
              + ' ' + IntToStr(hRect.Bottom) 
              + ' ' + IntToStr(hRect.Right));
end;