Текущий архив: 2002.10.17;
Скачать: CL | DM;

Вниз

Спрятать TaskBar   Найти похожие ветки 

← →
Осирис ©   (2002-10-07 17:17) [0]

Делаю так:

ShowWindow(FindWindow("Shell_TrayWnd", Nil), SW_HIDE);

TaskBar исчезает, но место которое он занимал по прежнему нельзя использовать. Как это можно исправить ?

---

← →
Игорь Шевченко ©   (2002-10-07 17:34) [1]

SHAppbarMessage

---

← →
Юрий Зотов ©   (2002-10-08 01:20) [2]

И еще SystemParametersInfo c SPI_SETWORKAREA.

---

← →
Осирис ©   (2002-10-08 12:12) [3]

>> SHAppbarMessage

Пробовал так:


var
AppBarData : TAppBarData;
begin
AppBarData.hWnd := FindWindow("Shell_TrayWnd", nil);
AppBarData.cbSize := sizeof(AppBarData);
SHAppBarMessage(ABM_REMOVE,AppBarData);
end;

Не получается. Чего не хватает ?

>> еще SystemParametersInfo c SPI_SETWORKAREA.


procedure TForm1.Button1Click(Sender: TObject);
var rect : TRect;
begin
rect.Left:=0; rect.Top:=0; rect.Right:=1024; rect.Bottom:=750;
SystemParametersInfo(SPI_SETWORKAREA,0, @rect, SPIF_SENDCHANGE);
end;

При этом все максимизированные окна изменяют свой размер. А окна, которые не были максимизированны при этом не изменяют свой размер, дабы не вылазить за указанный мной rect. Можно конечно перебрать все открытые окна и вручную изменить их размер, но может быть можно проще ?

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c