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

Delphi , Рабочий стол , Рабочий стол

Воспользуйтесь функцией 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;

Статья Как определить размер рабочего стола без ТaskBarа раздела Рабочий стол Рабочий стол может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Рабочий стол ::