Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

3rd
Мар

Как узнать размеры панели задач?

Posted by Chas under Пост-обзор

Подскажите, как в Delphi 7 узнать размеры панели задач?
А то пишу прогу, которая должна появляться на определенном расстоянии от нее.

raxp:
используя winapi:

 SystemParametersInfo(SPI_GETWORKAREA, 0, @rect, 0);

left:= GetSystemMetrics(0) - width; // хотя можно и rect.width-

top := rect.Bottom - height;

asmodey1:

var pzrect: TRect;

       hh: integer;

begin

hh:=FindWindow('Shell_TrayWnd','');

GetWindowRect(hh,pzrect);

Label1.Caption:='Высота панели задач = '+IntToStr(pzrect.Bottom-pzrect.Top);

end;

тема на форуме