Размеры панели задач

[tsar_]

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

[raxp]

версия дельфи тут ни причем ...используя winapi:

 SystemParametersInfo(SPI_GETWORKAREA, 0, @rect, 0);
left:= GetSystemMetrics(0) - width; // хотя можно и rect.width-
top := rect.Bottom - height;

[tsar_]

raxp, а можно ,пожалуйста, поподробней, как этот код работает?

[asmodey1]

Может, так объяснять не придется ? Пример:

var pzrect: TRect;
       hh: integer;
begin
hh:=FindWindow('Shell_TrayWnd','');
GetWindowRect(hh,pzrect);
Label1.Caption:='Высота панели задач = '+IntToStr(pzrect.Bottom-pzrect.Top);
end;

[Пепел Феникса]

raxp, метод не надежен, например JetAudio в режиме панели уменьшает рабочую область с учетом своих размеров(он вдоль панели задач располагается)
хотя, может это и надо ТС на самом деле(но ТС об этом не знает)?

ТС, цели то какие?

[GunSmoker]

http://programmersforum.ru/showthread.php?t=113252