Спрятать 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.

>> 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. Можно конечно перебрать все открытые окна и вручную изменить их размер, но может быть можно проще ?

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