Как определить размер рабочего стола без Т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;
|
|
|
|
|
сантехнические работы расценки . Медицинские осмотры! Низкие цены: прохождение медицинского осмотра. . Заказать Газель - от 950 рублей - грузоперевозки газель дешево. . туристические агентства . |
