Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как определить размер рабочего стола без Тaskbar'а?

Как определить размер рабочего стола без Тaskbar'а?

Воспользуйтесь функцией SystemParametersInfo(), переслав ей в качестве параметров - SPI_GETWORKAREA и адрес структуры типа TRect, куда будут передан полученный результат.
Пример:

     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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru